HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
daniel
01.07.2026 19:38:33
AW: Verbesserte Version mit Fehlerbehandlung
Hi
du verwendest als Dateiname zum Speichern die Variable sFullPath.
schau mal in deinem Code oberhalb des Exports, wo du diese Variable befüllst und welchen Wert sie dabei bekommt.
Gruß Daniel
Als Antwort auf diesen Beitrag
Chris
01.07.2026 19:19:08
AW: Verbesserte Version mit Fehlerbehandlung
Dim txt As String
If Range("I1") = "drucken" Then txt = txt & ",A1:I63"
If Range("I64") = "drucken" Then txt = txt & ",A64:I126"
If Range("I127") = "drucken" Then txt = txt & ",A127:I189"
If Range("I190") = "drucken" Then txt = txt & ";A190:I252"
ActiveSheet.PageSetup.PrintArea = Mid(txt, 2)
Dim sPath As String
Dim sFileName As String
Dim sFullPath As String
sPath = ThisWorkbook.Path & "\Archiv\"
If Dir(sPath, vbDirectory) = "" Then MkDir sPath
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFullPath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub


Habe mal etwas probiert. So sieht der Code aktuell aus. Jedoch wird die PDF nicht im neu angelegten Ordner "Archiv" gespeichert.
Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.