mehrere Tab.blätter in pdf drucken VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Makro1() Const FOLDER_PATH As String = "D:\Benutzer\" Dim lngIndex As Long Dim blnReplace As Boolean For lngIndex = 1 To 6 Call Worksheets("Name" & CStr(lngIndex)).Select(Replace:=blnReplace) blnReplace = True Next Call Worksheets("Name1").ExportAsFixedFormat(Type:=xlTypePDF, Filename:=FOLDER_PATH & _ Worksheets("Daten").Range("H4").Text, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False) Call Worksheets("Name1").Select End Sub

Hi Stephan
vielleicht weißt du es ja bei deiner nächsten, neuen Frage noch: gleich sofort MIT Bsp-Datei is eigtl immer besser!
(hast ja gesehen, was rauskommt, wenn Bsp-Datei nich vorhanden is)
Also, ich hab mein Glück auch mal versucht und den Code von Nepumuk in kleinen Teilen übernommen.
hier meine Datei:
https://www.herber.de/bbs/user/152364.xlsm
Sie enthält sowohl Makro1 für die gewünschten 6 Sheets in nur 1 PDF-Datei, als auch Makro2 für das Speichern von 2 Sheets in jeweils nur 1 PDF-Datei.
PDF-Name für 6 Sheets = "6 Sheets in PDF.pdf", weil du nich angegeben hast, wie denn diese PDF-Datei heißen soll - du musst den PDF-Namen also im Code noch anpassen
PDF-Namen für die 2 einzelnen PDF-Dateien = "Ü1 in PDF.pdf" und "Ü2 in PDF.pdf" - auch hier musst du die Namen im Code anpassen, weil...deine Angaben wieder fehlten.
Ach ja, du musst im Code auch noch den Speicherpfad anpassen, weil ich ja deinen Pfad auf meinem Computer nicht habe - aber ich hab das im Code kommentiert, wo du den Pfad anpassen musst.
Bei mir wird nach deinen Wünschen alles erledigt.
Konnte ich auch dir helfen?
Ciao
Thorsten

Lieber Thorsten,
vielen Dank für deinen frühen Einsatz.
Zu meiner Verteidigung :-) ich bin davon ausgegangen, dass die Tabellen samt Inhalt nicht sonderlich relevant sind, wenn es schlicht ums Drucken / pdf-Speichern geht. Bei 9 Blättern mit Inhalt bin ich ja auch etwas beschäftigt, alles rauszunehmen... Egal, wieder was gelernt.
Nur eine Sache noch:
Ich hatte die Dateinamen in meinem 1. Kommentar angegeben (und Nepumuk hatte ja auch einen von drei in seinen Code geschrieben) - im Tabellenblatt "Daten" steht er für die 6 Sheets in H4, für Sheet Ü1 in H9 und für Sheet Ü2 in H14. Er ändert sich immer, weil es eine Kombination aus Text und Datum ist.
Als VBA Laie krieg ich es leider nicht hin, Nepumuks Code mit deinem hier zu vereinen. Wenn du mir das bitte noch zeigen würdest... Danke, Gruß Stephan

Beliebteste Forumthreads (12 Monate)

mehrere Tab.blätter in pdf drucken VBA

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrere Tab.blätter in pdf drucken VBA

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread