18.06.2019, 14:04
Hallo zusammen
Ich habe ein Excel mit einem Makro welches mir die Tabellenblätter auf PDF ausgibt jedoch dauert die Erstellung des PDF's ewig. Es kommt die Meldung wird veröffentlicht und dann geht es ca. 30sec bis die Datei erstellt wurde.
An was liegt das? Kann mir da jemand helfen?
Ich habe folgenden VBA Code:
Ich habe ein Excel mit einem Makro welches mir die Tabellenblätter auf PDF ausgibt jedoch dauert die Erstellung des PDF's ewig. Es kommt die Meldung wird veröffentlicht und dann geht es ca. 30sec bis die Datei erstellt wurde.
An was liegt das? Kann mir da jemand helfen?
Ich habe folgenden VBA Code:
Sub PDFInfo()
If MsgBox("Neues PDF-Info erstellen? " & vbCrLf & "Gleichnamige PDF-Datei wird Ÿberschrieben!", _
_
vbOKCancel + vbInformation, "PDF-Info") = vbOK Then
Dim xlName As String
Dim xlPfad As String
Dim xlOpenAfterPublish As Boolean
Rem PDF-…ffnen-Abfrage erstellen
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo + vbQuestion, " _
Frage") = vbYes Then xlOpenAfterPublish = True
Rem Dateiname aus Zelle auslesen
Sheets("Info").Select
xlName = "Hallo"
x2Name = "wo"
x3name = "du"
Rem Dateipfad aus Zelle auslesen
Sheets("Cover Sheet").Select
xlPfad = Range("AM3").Value
With ActiveWorkbook
Rem PDF-File erstellen, in Dateipfad speichern
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & xlName & "_" & _
_
x2Name & x3name & x4name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, from:=8, To:=8, _
_
OpenAfterPublish:=IIf(xlOpenAfterPublish, True, False)
End With
Rem Boolean-Variable ausschalten
xlOpenAfterPublish = False
Sheets("Cover Sheet").Select
End If
End Sub