MSG
18.08.2023 15:10:32
Patrick
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