Von allen Tabellenblättern eine pdf-Datei erzeugen
08.05.2018 15:02:43
Christian
letzte Woche hat mir Mullit mit einer Abfrage über alle Tabellenblätter geholfen und es hat super funktioniert.
Jetzt möchte ich von jedem Tabellenblatt (außer der Tabelle1 als Quelle) automatisch eine PDF-Datei erzeugen, die im selben Verzeichnis gespeichert wird.
Der Dateiname soll sich aus dem Namen des Tabellenblattes, einem "_" und dem Text der Zelle B2 in Tabelle1 zusammensetzen.
Nachfolgenden Code habe ich erstellt auf Basis des Codes von Mullit. Er funktioniert insoweit für das 1. Tabellenblatt tatsächlich eine PDF-Datei erstellt wird.
Allerdings ohne dem Tabellennamen und mit einem Laufzeitfehler '1004' mit der Meldung "Das Dokument wurde nicht gespeichert. das Dokument ist möglicherweise geöffnet oder beim Speichern ist ein Fehler aufgetreten." Anschließen "beenden" oder "Debuggen". Wenn ich auf "Debuggen" klicke, dann werden die beiden Zeilen mit ActiveSheet... und wksname... gelb markiert.
Kann mir da bitte einer von euch weiterhelfen, wo mein Fehler liegt?
Vielen Dank vorab für eure Unterstützung.
Public Sub pdf_erzeugen()
Dim wksname As String
Dim cellname As String
Dim wksSheet As Worksheet
cellname = Tabelle1.Cells(2, 2).Value
ChDir ThisWorkbook.Path
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If .CodeName "Tabelle1" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
wksname & cellname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End With
Next
End Sub