Speichern, Error-Abfragen und Laufzeitfehler
28.11.2005 19:55:39
adriano.
vielleicht kann mir jemand helfen ?
die situation :
eine datei, welche per makro mit dem aktuellen datum
gespeichert wird. wenn die datei bereits vorhanden
ist, erscheint die normale meldung, ob man die datei
überschreiben möchte. wählt man nein, erscheint eine
inputbox, in welche man einen neuen dateinamen eingeben
kann. wählt man hier abbrechen, wird auf eine fehler-
routine verwiesen namens speichernerror:. soweit, sogut.
das problem :
wenn ich in der inputbox einen dateinamen angebe, welcher
ebenfalls vorhanden ist, mich excel dann fragt ob ich
überschreiben möchte, ich dies mit "nein" oder "abbrechen"
beantworte, bekomme ich einen hässlichen laufzeitfehler
1004. ich weiss nicht, ob ich dies mit einer "on error"-
abfrage handhaben muss oder anders. sämtliche versuche,
den fehler ebenfalls auf "speichernerror" umzuleiten, schlugen
fehl.
Untenstehend findet ihr den betreffenden auszug aus dem script.
ich danke ganz herzlich für jede hilfe.
Grüsse,
adriano.
----------------------------------------------------------------
DatumSpeichern:
'-- Dateiname Abfragen
Dateiname = InputBox("Bitte neuen Dateinamen (z.B. Datum-2) eingeben.", "Dateiname angeben", Datum)
If Dateiname = "" Then GoTo SpeichernError
'-- Speichern mit neuem Dateinamen
On Error GoTo SpeichernError
ActiveWorkbook.SaveAs Filename:=Arbeitspfad & Dateiname & ".xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox ("Datei wurde als " & Dateiname & ".xls abgespeichert.")
GoTo Abschluss