Danke das funktioniert....
Leider beeinhaltet ihr Code schon Sachen die wir noch nicht gelernt haben wie StrPtr Val Do und Loop....
Was mich extrem verwirrt ist ich hab diesen Code eine halbe Stunde vorher geschrieben, dieser funktioniert einwandfrei, wen ich "leer" lasse, oder "buchstaben" eintrage, sagt er mir einfach das es nicht okay ist.
Bei den jetzigen führt es immer wieder zum absturz... Ich möchte ungern Begriffe nutzen die wir noch nicht durchgenommen haben, würde wahrscheinlich nicht gut aussehen. Und leider versteh ich den Grund noch nicht warum es dazu kommt. Hier mal der andere Code.
Private Sub btn_Check_Click()
If txt_box1.Text = "" Then
txt_box2.Value = " Sie haben nichts eingegeben"
ElseIf IsDate(txt_box1) Then
txt_box2.Value = " Sie haben ein Datum eingegeben! "
ElseIf IsNumeric(txt_box1) Then
txt_box2.Value = "Sie haben Nummern eingegeben! "
Else
txt_box2.Value = " Sie haben Buchstaben eingegeben! "
End If
End Sub
Ich sehe nicht wirklich ein unterschied bis auf das es diesmal als MsgBox ausgegeben werden soll, statt in ein Textfeld.
mfg Stefan
|