Datei speichern
peter
Vielleicht könnt Ihr mir helfen.
Mittels VBA speichere ich das aktive Arbeitsblatt als Datei ab, der Dateiname besteht aus Einträgen verschiedener Zellen.
Nun habe ich immer Probleme wenn der Dateiname bereits vorhanden ist.
Kann man im VBA eine Abfrage einfügen die das Überschreiben oder das Abbrechen ermöglicht.
Das VBA sieht so aus.
Dim Eintrag1 As String
Dim Eintrag2 As String
Dim Eintrag3 As String
Dim sicherung As String
End If
Eintrag1 = Range("A12")
Eintrag2 = Range("B20")
Eintrag3 = Range("G19").Value
Eintrag3 = Format(CDate(Eintrag3), "yymmdd")
sicherung = Eintrag3 & "_" & Eintrag1 & "_" & Eintrag2 & ".xls"
Worksheets("Angebot_Rechnung").Copy
ActiveSheet.Name = "Angebot_Rechnung"
ActiveWorkbook.Close
End If
Danke schon mal im voraus
Gruß Peter