Fehlermeldung ausgeben bei keiner Eingabe?
04.06.2004 11:20:49
Logan
Ich hab Dateien die ich in Exceltabellen einles und habe jetzt zufällig festgestellt, dass ich ne Meldung bekomme, wenn der Pfad der Datei nicht richtig ist, aber nichts bekomme, wenn das Textfeld leer bleibt.
Ich habe es schon versucht über ne weitere If-Abfrage, aber ich bekomme immer nur Fehlermeldungen.
Sub Einlesen
If Dir(txtFile1.Text) = "" Then
Beep
MsgBox "Datei1 wurde nicht gefunden!"
GoTo ende
Else
Workbooks.Open txtFile1.Text
End If
Unload Me
End Sub
Wie kann ich mein Problem lösen?
MfG
Logan
Anzeige