Moin an alle,
und zwar habe ich das problem, dass ich in einer aufgabe für einen Fernlehrgang diese Aufgabe bearbeiten soll:
7. Aufgabe: Erstellen Sie in Ihrer Lösungsdatei ein Userform mit zwei Textboxen und einer Schaltfläche. Benennen und beschriften Sie alle Steuerelemente sinnvoll und aussagekräftig.Programmieren Sie für das Klick-Ereignis der Schaltfläche eine Prozedur, die den Inhalt der ersten Textbox überprüft, ob er numerisch ist, ein Datum oder Text oder ob die Textbox leer ist. Es gibt also vier Möglichkeiten. Das Ergebnis der Überprüfung soll mit einem aussagekräftigen Text in die zweite Textbox geschrieben werden.
nun zum problem, alle überprüfungen funktioneren außer das Datum, dieses wird nähmlich als Numerisch statt datum erkannt, ich hoffe ihr könnt mir anregungen geben wie ich das problem lösen kann.
der verwendete code:
weiterer anlauf welcher aber auch nicht funktioniert:
und zwar habe ich das problem, dass ich in einer aufgabe für einen Fernlehrgang diese Aufgabe bearbeiten soll:
7. Aufgabe: Erstellen Sie in Ihrer Lösungsdatei ein Userform mit zwei Textboxen und einer Schaltfläche. Benennen und beschriften Sie alle Steuerelemente sinnvoll und aussagekräftig.Programmieren Sie für das Klick-Ereignis der Schaltfläche eine Prozedur, die den Inhalt der ersten Textbox überprüft, ob er numerisch ist, ein Datum oder Text oder ob die Textbox leer ist. Es gibt also vier Möglichkeiten. Das Ergebnis der Überprüfung soll mit einem aussagekräftigen Text in die zweite Textbox geschrieben werden.
nun zum problem, alle überprüfungen funktioneren außer das Datum, dieses wird nähmlich als Numerisch statt datum erkannt, ich hoffe ihr könnt mir anregungen geben wie ich das problem lösen kann.
der verwendete code:
Quellcode
- Option Explicit
- Private Sub btn_ausgabe_Click()
- Dim eingabetext As String
- If IsDate(eingabetext) Then
- txtbox_ausgabe = "Der Inhalt ist ein Datum"
- ElseIf txtbox_eingabe = IsNumeric(True) And Not IsDate(eingabetext) Then
- txtbox_ausgabe = "Das Format der Zeichen ist Numerisch"
- ElseIf txtbox_eingabe = "" Then
- txtbox_ausgabe = "Die Textbox ist leer"
- Else:
- txtbox_ausgabe = "Das Format der Zeichen ist ein Text"
- End If
- End Sub
weiterer anlauf welcher aber auch nicht funktioniert: