ich habe folgenden Makro:
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
Const s = "F:\__Info_IDM\Neue_Vorschläge"
Application.DisplayAlerts = True
Dim Pfad
Pfad = InputBox("Bitte Dateinamen mit Namen ergänzen:", "Speichern unter: F:\__Info_IDM\ _
Neue_Vorschläge", Format(Now, "yyyy-mm-dd") & "-")
ActiveWorkbook.SaveAs s & "\" & Pfad & ".xlsx"
ActiveWorkbook.Close False
Workbooks("IDM_Formular.xls").Close False
Application.DisplayAlerts = True
End Sub
Wenn ich das Makro laufen lasse, bekomme ich zuerst die Rückfrage, "Die folgenden Features können in Arbeitsmappen nicht gespeichert werden. VB Projekt ...... "Diese Rückfrage möchte ich NICHT haben, jedoch anschließend die Frage, wenn die Datei bereits vorhanden ist, ob diese überschrieben werden soll.
Wie bekomme ich das hin?
Gruß Gunter