Clever-Excel-Forum

Hallo Leute,

ich habe ein Problem mit meiner VBA Programmierung und vielleicht kann mir da jemand weiterhelfen.

Kurz zur Erklärung: In einen Userform mit einen Button und zwei Textfeldern soll im ersten Textfeld erkannt werden ob es ein Text, eine Zahl, ein Datum oder das Textfeld leer ist. Das zweite Textfeld soll dann sagen, ob es ein Wort, eine Zahl, ein Datum oder nichts wenn im ersten Textfeld auch nichts drin steht.

[attachment=50701]

Ich habe herausgefunden wie ich das Datum erkenne und die normalen Zahlen. Nur beim Wort und beim leeren Textfeld habe ich das Problem, dass das nicht so funktioniert wie es mir vorstelle.

[attachment=50702]

Option Explicit

Private Sub btn_numtextdatum_Click()

If IsDate (txt_eingabe2) Then
Me.txt_ausgabe2 = "Datum"

Else

If IsNumeric (txt_eingabe2) = Then
Me.txt_ausgabe2 = "Zahl"

Else

If IsNumeric (txt_eingabe2) = False Then
Me.txt_ausgabe2 = "Wort"
Else
Me.txt_ausgabe2 = " "

End If
End If
End If

End Sub

Hier ist das Problem, egal ob im ersten Textfeld ein Text oder das Textfeld leer ist, in Textfeld 2 kommt immer "Wort" raus.
[attachment=50703]

Kann mir da jemand weiterhelfen?
Hier ist noch die Exceldatei:
[attachment=50704]

Danke im Voraus und mit freundlichen Grüßen

Zerenick

Hallo,

der fehlende Teil am Anfang der Prozedur so:

Code:
Private Sub btn_numtextdatum_Click()

    If txt_eingabe2 = "" Then

        txt_ausgabe2 = "leer"

        Exit Sub

    End If

dein restlicher Code

.......

Gruß Uwe

Zerenick

Egon12