Fehlermeldung bei Textbox-Inhalt
23.08.2006 07:54:49
Andreas
ich hab folgendes Poblem:
Ich habe eine Userform mit drei Textboxen und zwei Buttons (Starten & Abbrechen). Wenn man auf Starten klickt wird geprüft, ob in den drei Textboxen Dateien drin stehen. Sind die Felder leer wird automatisch ein Auswahlfenster für die noch fehlenden Dateien geöffnet.
Das Problem ist, dass wenn ich bei dem Auswahl-Explorer-Fenster auf Abbrechen klicke erscheint dann eine Fehlermeldung (Laufzeitfehler 1004), dass die Datei FALSE.xls nicht gefunden wurde. Ich hab schon versucht das abzufangen und statt FALSE.xls die Textbox wieder auf leer zu setzen, aber das hilft trotzdem nichts.
Hat jemand eine Idee, wie ich diese Fehler abfangen kann?
Gruss
Andreas
Der entsprechende Quelltext:
Private Sub TextBox1_Enter()
TextBox1.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
End Sub
Private Sub TextBox2_Enter()
TextBox2.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
End Sub
Private Sub TextBox3_Enter()
TextBox3.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
End Sub
' Klicken des Starten-Buttons in dem Eingabeformular
Sub CommandButton1_Click()
' Fehlermeldungen, wenn keine oder nicht alle benötigten
' Dateien ausgewählt wurden
If TextBox1.Value = "" And TextBox2.Value = "" And TextBox3.Value = "" Then
MsgBox ("Wählen Sie die drei benötigten Dateien aus!")
TextBox1.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
TextBox2.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
TextBox3.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox1.Value = "" And TextBox2.Value = "" Then
MsgBox ("Wählen Sie die beiden noch fehlenden Dateien aus!")
TextBox1.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
TextBox2.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox2.Value = "" And TextBox3.Value = "" Then
MsgBox ("Wählen Sie die beiden noch fehlenden Dateien aus!")
TextBox2.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
TextBox3.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox1.Value = "" And TextBox3.Value = "" Then
MsgBox ("Wählen Sie die beiden noch fehlenden Dateien aus!")
TextBox1.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
TextBox3.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox1.Value = "" Then
MsgBox ("Wählen Sie eine BWS-Datei aus!")
TextBox1.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox2.Value = "" Then
MsgBox ("Wählen Sie eine BWSjeET-Datei aus!")
TextBox2.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox3.Value = "" Then
MsgBox ("Wählen Sie die BIP_Tabellen-Datei aus, in die das Ergebnis gespeichert werden soll!")
TextBox3.Value = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
ElseIf TextBox1.Value = "" And TextBox2.Value = "" Then
MsgBox ("Wählen Sie die beiden noch fehlenden Dateien!")
End If
If TextBox1.Value = "FALSE.xls" Then TextBox1.Value = ""
If TextBox2.Value = "FALSE.xls" Then TextBox2.Value = ""
If TextBox3.Value = "FALSE.xls" Then TextBox3.Value = ""
' Öffnen der ausgewählten Dateien
Workbooks.Open Filename:=TextBox1.Value
Workbooks.Open Filename:=TextBox2.Value
Workbooks.Open Filename:=TextBox3.Value
End Sub