Tabellenblatt als PDF speichern, der letzte Versuch

Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread

Forumbeitrag

Excel-Version des Fragestellers:

2019

Erfahrungslevel des Fragestellers:

Kaum Excel/VBA-Kenntnisse

Hans-Georg

05.05.2026 15:26:11

@ JoWE und andere - Makros laufen durch, speichern aber nich

Hallo JoWE.

Dein Ansatz ist schon mal Super.

Meinen ersten Fehler habe ich gemacht, weil ich glaubte drei Dateien gleichzeitig bearbeiten zu können. Das habe ich mir fest vorgenommen; mache ich nie wieder !

Bei Const oPfad = "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\" habe ich schon meinen ersten Fehler entdeckt

Korrekt ist:
Const oPfad = "C:\MGD Recycling\Rechnungen\Schrott\"

In der Zeile With Sheets("Ankauf-Verkauf") habe ich versehentlich den falschen Namen angegeben.

Korrekt ist:
With Sheets("Altmetalle")
Dein Makro läuft durch bis zur Message Box und nach dem bestätigen, kommt dann der Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler

Markierung von VBA:
Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strFileName, Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Hier nochmal der "richtige" Speicherpfad
C:\MGD Recycling\Rechnungen\Schrott\ (der Einfachheit halber nur ein Wort genommen)

Ist es nicht am einfachsten, das Makro so zu erstellen, dass ein manuelles Speichern möglich ist ?
Soll heißen, dass sich das Dialogfeld zum Speichern der Datei automatisch öffnet und der Speichername schon als Vorgabe in dem Feld zum "Speichern unter" eingegeben ist? Wenn der Speicherpfad bis einschließlich dem Ordner "Schrott" vorgegeben ist, kann man den letzten Unterordner doch per Hand auswählen oder im Ordner "Schrott" direkt speichern ?

Ich hoffe, dass ich nicht zu viel verlange / erwarte. Wichtig ist halt nur, dass die ganze Datei so einfach wie möglich zu bedienen ist.

Die Vorversion lief auf dem Rechner rund zwei Jahre und ich habe mehrere hundert falsche Abspeicherungen löschen müssen. Oftmals fehlten irgendwelche wichtigen Eingaben wie Kundennummern oder Quittungsnummern. Das möchte ich natürlich vermeiden!

Vielen Dank für deine Hilfe

Hans-Georg

Beim Antworter bedanken Als gefällt mir markieren Als hervorragend auszeichnen

Als Antwort auf diesen Beitrag

JoWE

04.05.2026 18:13:52

AW: Tabellenblatt als PDF speichern, der letzte Versuch

Hallo Hans-Georg,
das ständige Verändern der Zellen in Deinen Beiträgen, die dann das Jahr bzw. den Dateinamen enthalten
empfinde ich als sehr seltsam, denn im letzten Beispiel lauteten die Zellen noch "HU3" und "X3" (was soll das???)

Nichtsdestotrotz, das folgende Makro (mit den neuen Zellbezeichnungen) funktioniert tadellos ohne Fehlermeldungen:
'*************************************************************************************************************
Const oPfad = "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\"

Private Sub CommandButton3_Click()
Dim strFileName As String
Sheets("Rechnung").PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
With Sheets("Ankauf-Verkauf")
strFileName = oPfad & .Range("LM126").Text & "\" & .Range("DU93").Value & ".pdf"
MsgBox strFileName '** nur zum Testen
Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strFileName, Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
'*************************************************************************************************************
Gruß
Jochen

Folgenachrichten

AW: @ JoWE und andere - Makros laufen durch, speichern aber nich - von JoWE am 05.05.2026 16:26:04

Beispielmappe mit Ordnerstruktur und Zellbezügen - von Hans-Georg am 05.05.2026 19:13:38

Frage noch offen nicht angeklickt ... - von Hans-Georg am 05.05.2026 19:14:28

AW: nun auch die richtige Datei..... - von Hans-Georg am 05.05.2026 19:18:52

AW: nun auch die richtige Datei..... - von JoWE am 05.05.2026 20:31:31

AW: nun auch die richtige Datei..... - von schauan am 05.05.2026 22:14:05

AW: nun auch die richtige Datei..... - von JoWE am 06.05.2026 10:01:50

AW: nun auch die richtige Datei..... - von schauan am 05.05.2026 22:06:00

AW: Beispielmappe mit Ordnerstruktur und Zellbezügen - von schauan am 05.05.2026 19:23:20

AW: Beispielmappe mit Ordnerstruktur und Zellbezügen - von schauan am 05.05.2026 19:25:59

Zum Forumthread

Antwort auf Beitrag erstellen

Name
Bitte einen Anwendernamen ohne @ eingeben.

Passwort

Bitte das Passwort eingeben.

Email-Adresse
Bitte eine gültige E-Mail-Adresse eingeben.

Betreff
Bitte einen Betreff eingeben.

Weitere Optionen

Als noch offen markieren.
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.

Beispieldatei hochladen

Formatiertipps

fett 

Setzt den Text in b-Tags (Fettschrift)

Dieser Text ist in Fettschrift formatiert

So sieht das dann aus

Dieser Text ist in Fettschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

kursiv 

Setzt den Text in i-Tags (Kursivschrift)

Dieser Text ist in Kursivschrift formatiert

So sieht das dann aus

Dieser Text ist in Kursivschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der kursiv zu setzende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Formel <pre>

Setzt den Text in pre-Tags

<pre>=FILTER(B2:C11;A2:A11=F1)</pre>

So sieht das dann aus

=FILTER(B2:C11;A2:A11=F1)

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Code <pre><code>

Setzt den Text in pre- und code-Tags

<pre><code class="language-vba">
Option Explicit
Sub NaEndlich()
MsgBox "Hallo Welt"
End Sub
</code></pre>

So sieht das dann aus

Option Explicit Sub NaEndlich() MsgBox "Hallo Welt" End Sub

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Liste <li>

Setzt den Text in li (Listenpunkte)

<li>Erste Zeile</li>
<li>Zweite Zeile</li>
<li>Dritte Zeile</li>

So sieht das dann aus

Erste Zeile

Zweite Zeile

Dritte Zeile

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Bitte einen Nachrichtentext eingeben.