Hallo Zusammen,
ich möchte jedes Tabellenblatt einzeln als pdf Speichern, Dateiname soll ich das Makro aus dem jeweiligen Tabellenblatt aus den Zellen A5 und H1 ziehen.
Die Tabellenblätter sind durchnummeriert beginnend mit 1; 2; 3;.....
Probleme:
- loop, "springe" nach dem speichern ein Tabellenblatt weiter und speichere dort,.... bis zum Ende
- Zelle A5 und H1 muss ebenfalls weiter springen
Hier mein bisheriger Code:
Sub Drucken()
Dim strFilename As String
ChDir "C:\Users\Benutzer\Downloads\test"
ThisWorkbook.Sheets("1").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:=Sheets("1").Range("A5") & "_" & Sheets("1").Range("H1").Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Danke :)
|