VBA Code PDF Speichern dauert ewig

[Andicapaul]

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:

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

[MisterBurns]

Hallo,

dein Code ist ein heilloses Durcheinander. Du deklarierst Variablen nur teilweise, benennst Variablen komisch (x2Name, x3Name --> das erste heißt xlName mit L wie Ludwig, nicht x1Name mit Eins), verwendest dann beim Pfad noch eine Variable x4Name, die zuvor gar nicht festgelegt wurde. Dafür findet die Variable xlPfad überhaupt keine Verwendung.

Bring mal den Code in Ordnung, vielleicht klappt es dann auch mit der Geschwindigkeit. Bei mir ist die pdf-Erstellung ruckzuck erledigt gewesen.

[mmat]

Hallo Paul

dein Programm bietet tatsächlich mehrere Möglichkeiten für eine Optimierung.

Allerdings ergeben sich keine Anhaltspunkte, warum eine Seite PDF 30 Sekunden dauert. Die Ursache hierfür liegt wahrscheinlich woanders.

Also, versuchs mal mit den Klassikern und baue dein Makro nach folgendem Schema um:

Code:

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
 
  ... dein code ...
 
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic

vg, MM

[snb]

Verzichte immer auf 'Select' und 'Activate' in VBA

[schauan]

Hallöchen,

Verzichte immer auf 'Select' und 'Activate' in VBA

Verzichte nach Möglichkeit auf 'Select' und 'Activate' in VBA