AW: Makro für Drucken aus mehreren Tabellenblättern
06.11.2018 18:12:50
Werner
Hallo Stephan,
z.B. so:
Du mußt dir in der Excel Datei ein zusätziches Blatt anlegen und diesem den Namen "Dummy" geben.
Den Namen der PDF-Datei mußt du im Makro noch anpassen.
Die PDF-Datei wird ins gleiche Verzeichnis gespeichert, in dem auch deine Excel mit dem Makro ist.
Public 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