Hallo Leute,
ich bin ein großer Fan eurer Community, konnte bereits viele Tipps aus den Foren gewinnen.
Ich habe eine Aufgabe bei der ich noch keine passende Antwort dazu gefunden habe. Ich habe eine Arbeitsmappe bei der ich mittels Makro eine PDF aus verschiedenen Arbeitsblättern erstellen will. Wenn ein Tabellenblatt in einer bestimmten Zelle eine 1 hat, dann soll es in eine PDF exportiert werden. Da ich noch Anfänger bin, bekomme ich den Code nicht so hin, das dieser funktioniert.

Sub Sheets2PDF()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Range("J1").Value = 1 Then
sh.Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Mappe.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub

Würde mich freuen, wenn ich einen Lösungsvorschlag von euch bekommen könnte.
VG Mario