Makro Speichern überschreibt vorh. Datei
08.02.2013 08:53:28
Tutanch0
ich habe ein Makro erstellt, mit dem unsere User direkt in einen Pfad in einem bestimmten Dateiformat abspeichern können. Soweit so gut. Wenn aber bereits eine Datei z.B. 20130208_Test-ABC.xlsx vorhanden ist, wird diese ohne Nachfrage überschrieben. Das darf aber nicht sein. Was muss ich an dem Makro verändern, damit vorhandene Dateien NICHT überschrieben werden, sondern der User darauf hingewiesen wird, das die Datei bereits vorhanden ist und er einen anderen namen vergeben muss.
Danke schon mal im voraus.
Hier mein 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