ich habe ein Makro mit dem ich Dateien immer in denselben Pfad abspeichere und auch das Datum mit übergebe. Nun hat sich herausgestellt, dass wenn man einen Dateinamen wählt, der bereits vorhanden ist, die Datei ohne Nachfrage überschrieben wird.
Hier der Code:
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
Const s = "F:\__Info_IDM\Neue_Vorschläge"
Application.DisplayAlerts = False
Dim bm
bm = InputBox("Bitte Dateinamen mit Namen ergänzen:", "Speichern unter: F:\__Info_IDM\ _
Neue_Vorschläge", Format(Now, "yyyy-mm-dd") & "-")
ActiveWorkbook.SaveAs s & "\" & bm & ".xlsx"
ActiveWorkbook.Close False
Workbooks("IDM_Formular.xlsm").Close False
Application.DisplayAlerts = True
End Sub
Was muss ich hier noch ergänzen, damit vorhandene Dateien NICHT überschrieben werden?
Danke schon im voraus.
Gruß Gunter