Automatisches Erstellen von PDFs - die Lösung

[d'r Bastler]

Ok Helmut,

dann mal ganz kleingeschrieben, damit Du meine Kommentar nicht wieder als Gebrüll verstehst. Die Frage, was Du mit Deinen Ergänzungen erreichen wolltest hast Du leider nicht beantwortet. Wirklich erkennbare Vorteile konnte ich auch nicht finden. Aber durch Deine Formulierung austoben und unsinnige Behauptungen dazu, habe ich das schon als Gemecker empfunden. 

Ich habe aber Deinen Hinweis durch alle / durch die gewünschten aufgegriffen und das hier gebaut:

Code:

Sub Export_To_PDF_v3()
Dim sht As Worksheet, sPath$, sFile$, aSheets(), item, tStart#

sPath = ThisWorkbook.Path
aSheets = Array("Bericht_A", "Bericht_B")

    tStart = Timer

    For Each item In aSheets
        sFile = sPath & "\" & item & "_" & Date & ".pdf"
        Worksheets(item).ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFile, Quality:=xlQualityStandard
    Next item

    Debug.Print "v3 " & Timer - tStart
End Sub

Auch dieser Code ist Fehler-stabil und tut was er soll. 

Wenn ich jetzt mal für alle Versionen die Timer-Werte vergleiche, stelle ich fest, dass sie 1.) pro Durchlauf variieren und 2.) sich unterm Strich alle so wenig unterscheiden, dass man definitiv von keiner besseren Version sprechen kann. Wir streiten also um des Kaisers Bart. Und den hamwer ja nu schon lange nich mehr.

Was "Eleganz" (= Minialismus) im Coding betrifft, gefällt mir meine Select-Version am besten.

Schönen Amnd noch und Dank für die Anregungen!