Ziel soll es sein wenn in den Tabellenblätern in der Zelle die Bedingung JA ist, drucke den Tabellenbereich aus.
Danke für die Hilfe im voraus
Public Sub Druck()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Projektgesamtdaten" & "*" Then
If ws.Range("EN545") = "Ja" Then
ws.Range("EE546:EN623").PrintOut
End If
End If
Next ws
End Sub
Gruß WernerPublic Sub PDF_erstellen()
Dim ws As Worksheet, wsZiel As Worksheet
Dim Pfad As String, Dateiname As String
'Zielblatt festlegen
Set wsZiel = ThisWorkbook.Worksheets("Dummy")
'Speicherpfad = Pfad in dem diese Datei liegt
Pfad = ThisWorkbook.Path
'Dateiname der PDF festlegen
Dateiname = "DerNamederPDF_Datei"
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Projektgesamtdaten" & "*" Then
If UCase(ws.Range("EN545")) = "JA" Then
ws.Range("EE546:EN623").Copy _
wsZiel.Range("A" & wsZiel.Cells(Rows.Count, 1).End(xlUp).Offset(1).Row)
End If
End If
Next ws
'Zielblatt als PDF exportieren und anzeigen
wsZiel.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & "/" & Dateiname & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
'Zielblatt leeren
wsZiel.Cells.ClearContents
'Variable aufräumen
Set wsZiel = Nothing
End Sub
Gruß Werner