das mit dem Speichern hat ja nun geklappt und schau da kommt das nächste Problem auf mich zu.
Die Datein werden ohne Nachfrage überschrieben, wenn ich nicht expiziet darauf achte das ich in der Zelle D9 den Wert ändere.
Gibt es die Möglichkeit vor dem Speichern abzufragen ob bereits eine Datei mit dem gleichen Namen vorhanden ist? Wenn ja Makro Stoppen und den Wert in Zelle D9 ändern.
Ich habe in der Recherche leider nichts gefunden was mir weiter helfen könnte.
Nochmals danke für Eure Hilfe.
Gruß Seppel
Sub Lieferscheine_speichern()
' Speichert den Lieferschein als pdf
Sheets("Lieferschein").Select
ActiveSheet.Outline.ShowLevels RowLevels:=1
Dim SpeicherName As String
Dim Speicherpfad As String
Dim Vorzeichen As String
Speicherpfad = Sheets("Dat").Range("F4").Value
Vorzeichen = Sheets("Dat").Range("F8").Value
SpeicherName = Speicherpfad & Vorzeichen & Range("D9") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub