application.Quit Fehler 13
14.06.2005 03:40:21
Andreas
folgender Code macht mir Schwierigkeiten:
Sub FileExist()
If Dir("Y:\Arbeitsgruppen\TA_TB_TV\TA_TB\mangeldb.mdb") = "" Then
MsgBox "Keine Verbindung zur Datenbank mangeldb.mdb!" & vbLf _
& "Die Datei wurde verschoben, umbenannt oder gelöscht.", vbCritical
Application.Quit 'hier kommt Fehler 13
Else
MsgBox "Datei existiert!" 'wird nur zum Test angezeigt
End If
End Sub
Wenn die Datei nicht gefunden wird, kommt die Fehlermeldung. Nach drücken der O-Taste bricht vba ab mit Fehler 13.
Ich möchte aber, dass Excel beendet wird und das ohne Fehlermeldung.
Danke für eure Hilfe
Andreas
Anzeige