AW: vba pdf
25.10.2025 12:46:04
JoWE
Hallo Winfried,
Mein Versuch:
In einer aktuellen Arbeitsmappe können die Tabellenblätter
entweder alle oder auch einzelne gruppiert werden.
Das Makro exportiert die in der Gruppierung enthaltenen
Tabellenblätter in einzelne PDF-Files. Der Dateiname der so erstellten
neuen PDF-Datei richtet sich nach dem Inhalt der jeweiligen Zelle A1.
teste mal:
Option Explicit
Sub gruppierteTabs2PDF()
Dim strPath As String
Dim sh As Worksheet
strPath = "C:\Temp\" 'hier ist der Speicherpfad anzupassen
For Each sh In ThisWorkbook.Windows(1).SelectedSheets
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & "\" & sh.Range("A1") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
Sheets("Tabelle1").Activate
End Sub
Gruß
Jochen