ich habe das Internet durchsucht und leider keine Lösung gefunden. Ich möchte gerne aus einer Datei mit ca. 20 Tabellenblättern einige Blätter als PDF einzeln mit dem jeweiligen Blattnamen speichern.
So heißt beispielsweise ein Blatt KST-Linie oder KST-Dry. Wobei diese immer gleich und vergeben werden. Sprich dies könnte fest vorgegeben werden.
Der Pfand, in dem diese gespeichert werden, soll dabei zuvor ausgewählt werden.
Bei diesem Code bekomme ich immer einen Timeout! Vielleicht mag mir einer helfen, ich bin dafür nicht erfahren genug.
Sub PDF()
Dim lsheet As Integer
For lsheet = 1 To ActiveWorkbook.Worksheets.Count
With Worksheets(lsheet)
If Not IsEmpty(.UsedRange) Then
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="M:\Controlling\CTRL-FM\Ab_2017\Vodafone_Stammdaten_und_Reports\ _
Report an KST\" & .Name & ".pdf", _
Quality:=xlQualityStandard
End If
End With
Next lsheet
End Sub