Habe eine SaveAs eIgenschaft in mein Programm eingebaut. Jetzt wird aber bei vorhandensein der zu erstellenden Datei die Frage nach dem überschreiben gestellt! Ich würde gern, wenn man auf "nein", also nicht überschreiben klickt, eine Inputbox anzeigen lassen, die die Möglichkeit bietet einen neuen Dateinamen festzulegen. Allerdings kommt eine Fehlermeldung von VBA:
"Die Methode 'Save As' für Workbook ist fehlgeschlagen"
Mein Code sieht folgendermaßen aus:
'####################
'#Workbook speichern#
'####################
ActiveWorkbook.SaveAs Filename:=Worksheets("system").Range("B101") & Worksheets("system").Range("B58") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
On Error GoTo inputbox_dateiname
GoTo weiter
weiter:
If benutzername = "" Then
login.Show
Worksheets("system").Range("B103") = benutzername
Else
Worksheets("system").Range("B103") = benutzername
End If
Unload Me
menue.Show
inputbox_dateiname:
filname = InputBox("Geben Sie einen anderen Dateinamen ein! Speicherort: " & Worksheets("system").Range("B101"), "Dateiname bereits vorhanden")
ActiveWorkbook.SaveAs Filename:=Worksheets("system").Range("B101") & Filename & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
GoTo weiter
Könnte mir da vielleicht jemand helfen?
vielen dank!