Office: Excel Makro: PDF Drucken aus mehrere Sheets

Guten Tag,

ich bin neu im Bereich VBA und habe jetzt ein paar Makros geschrieben.
Nun komme ich aber auch nach viel Zeit auf Google nicht weiter
Mein Ziel: ich will aus 2 Excel Sheets einen bestimmten Bereich nehmen und in einer PDF speichern.
Leider bekomme ich die Bereich nicht vereint und hoffe nun auf Hilfe.
Mein Makro bisher:

Sub pdf()
Dim ms As Range
Dim im As Range
Dim zs As Range

Sheets("I M").Select
Set im = Range("A1:T47")
Sheets("M S").Select
Set ms = Range("A1:K38")
Set zs = Union(im, ms)
zs.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Format(Date, "YYYY_MM_DD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Survey").Select
End Sub

Er gibt einen fehler in der Zeile "Set zs = Union(im, ms)" aus. Evtl liegt der Fehler aber auch bei der PDF erstellung?
Ich verwende Excel 2013 und hoffe das mir jemand helfen kann :)

MfG Mogloa

 

Keiner eine Idee?

 

Das Problem ist darin begründet, dass Union nur auf einem Tabellenblatt funktioniert. Probiere mal diese Subs. Ich habe das ganze in 4 verschiedene Subs geteilt, du kannst sie dann ja auch zusammenfügen. Wenn du wills, mache ich dir das dann auch:

 

Super! Lieben vielen Dank dir :)
Sieht super aus habe deinen Code mal in einer Beispiel Datei getestet und sieht alles gut aus :)
In meiner Datei will er das noch nicht ganz mit den Namen der Sheets übernehmen und wirft leider immer einen Fehler aus.
Werde das Morgen nocheinmal in Ruhe testen.
Nochmals Vielen Dank dir :)

PS: wie müsste ich den z.B. die Zeile "Set ms = Tabelle1.Range("A1:T47")" abändern wenn das Sheet nicht "Tabelle1" heisst? :)

 

Einfach Tabelle1 durch deinen Tabellennamen ersetzen.

 

Ich habe jeweils 2 Stellen an denen der Name angepasst werden muss oder?
1: " Set Ws = W1.Worksheets("Tabelle1") "
2: " Set ms = Tabelle1.Range("A1:T47") "
Setze ich nun beide auf z.B. "Tabelle3" funktioniert es nicht mehr habe ich etwas übersehen?

 

Ich habe es mir gerade noch einmal angeschaut:
Ich glaube den Teil
Set W1 = ThisWorkbook
Set Ws = W1.Worksheets("Tabelle1")
Set Ws2 =W1.Worksheets("Tabelle2")

Brauchst du gar nicht. Setze mal davor ein Hochkomma - das ist Shift+# und dann schau noch mal ob es funktioniert. Einzig
Set ms = Tabelle1.Range("A1:T47")
änderst du in

Set ms = Tabelle3.Range("A1:T47")

Um. Das müsste reichen...

 

Es geht auch ohne den Teil:
Set W1 = ThisWorkbook
Set Ws = W1.Worksheets("Tabelle1")
Set Ws2 =W1.Worksheets("Tabelle2")

Aber sobald ich den Sheetnamen ändere so wie du es beschrieben hast wirft er einen Fehler aus und sagt er kennt die Variable nicht.
(Tabelle1 in Tabelle3 umbenannt habe ich aber)

 

Wenn der den Fehler bringt klick mal debuggen und schau welche Zeile er markiert

 

markiert ist die Zeile: "Public Sub zusammenfassen()" in gelb
und zusätzlich markiert er "Tabelle3" blau(also ausgewählt).

 

Hi, ändere mal folgende Zeilen

warum der da gerade rumzickt verstehe ich nicht. Vielleicht funktioniert das nur unter (mit) Tabelle1 automatisch... Hab dir mal meine Excel-Datei angehängt, damit funktioniert es...Achtung, da steht der Pfad auf "D:\". Das müsstest du dann noch anpassen...

 

Super! mit " Set im = Sheets("Tabelle2").Range("A1:D9") " gehts :)
vielen lieben Dank hast mir ungemein geholfen :)