Hallo,
Ich habe folgendes Problem, ich bräuchte eine MsgBox, wenn die Datei vorhanden ist beim Speichern (Ersetzen und Abbrechen).

Der PDF-Name bezieht sich von Zellen die eine Fortlaufende Nummer ist.
Ich habe 2 relevante VBAs dafür:
1. Als PDF speichern , Name von 3 Zellen
2. Fortlaufende Nr. wird um eines erhöht und Excel wird geschlossen

Jetzt müsste ich beim 1.Makro eine MsgBox einbauen sollte die fortlaufende Nummer schon existieren (sollte jemand nicht mit Makro Speichen und sich somit die fortlaufende Nr. nicht ändert).

Max Mustermann_2023-832.pdf so wird die Datei gespeichert.

Der Name wird immer anders sein, nur dürfen nicht die letzten beiden Zahlen gleich sein .

Das ist mein Makro ohne MsgBox, bitte um Hilfe.


Sub Speichern_PDF() 'Mit fortlaufender Nummer und Namen vom Auftraggeber

Dim strFilename As String

ChDir "S:\Dispo Kran\Offerte_2023\Offerte_2023\"

ThisWorkbook.Sheets("Angebot_2023").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="S:\Dispo Kran\Offerte_2023\Offerte_2023\" & Sheets("Angebot_2023").Range("C8") & "_" & Range("I9") & Range("J9") & Range("K9").Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub




Danke

Lg Patrick