SaveAs Fehlerbehandlung
11.04.2017 16:12:08
matzemalzbier
Bei beim Speichern unter einer Excel Tabelle prüft Excel ob genügend Speicherplatz auf dem Ziellaufwerk vorhanden ist und gibt ggf. eine Rückmeldung.
Tritt die Situation bei der Verwendung von dem Befehl SaveAs auf, so führt dies zu der Fehlermeldung: Laufzeitfehler 1004.
Zwar kann man mittels Fehlerbehandlung damit umgehen, aber das Problem ist, dass in der Titelleiste der neue Dateiname steht, obwohl die Datei nicht geschrieben wurde.
Gibt es einen eleganten Weg um diesen Fehler abzufangen?
Beispiel:
Sub SaveAsFehlerbehandlung()
On Error GoTo Fehlerbehandlung
SaveAs "NeuerDateiname"
Exit Sub
Fehlerbehandlung:
MsgBox "Es ist ein Fehler beim Speichern aufgetreten: Fehler " & Err.Number
End Sub
Gruß, Matzemalzbier.