Office: (Office 2003) Eingabe in Inputbox auf richtiges Format prüfen

engri · 15. Januar 2007

Hallo Gemeinschaft,

ich hab da mal wieder ein keines POroblem, welches ich auch nach längeren Stöbern in bereits vorhanden Beiträgen nicht hab lösen können.

Gibt es die Möglichkeit das Format einer Inputbox-Eingabezu überprüfen. Der Anwender soll ein Datum in der Form tt.mm.jjjj eingeben. Damit es dann beim Speichern keinen Konflikt mit dem "Datentyp" gibt, wollte ich es besser vorher prüfen ...

Hier der bisherige Code, einschließlich der Prüfung nach nummerischer und 10-stelliger Eingabe, was aber auch Falscheingaben wie t.tmmj.jjj nicht verhindert ...

Code:

Private Sub DatEingabeNEU_Click()
On Error GoTo Err_DatEingabeNEU_Click
Dim gebdat As String

START:
gebdat = InputBox("EINGABE ... Formatvorgabe: tt.mm.jjjj", "Geben Sie das Geburtsdatum ein ...", , 5100, 3400)

AUSWERTUNG:
If StrPtr(gebdat) = 0 Then
GoTo ABBRUCH
Else

If gebdat = "" Then
msgbox "Es wurde nichts eingegeben", vbCritical, "EINGABEFEHLER"
GoTo START
Else
If Not IsNumeric(gebdat) Then GoTo KEINEZAHL
If Len(gebdat) "10" Then GoTo FALSCHEINGABE
If Len(gebdat) = "10" Then GoTo SPEICHERN
End If

End If

ABBRUCH:
msgbox "Die Eingabe wurde abgebrochen, Datensatz wurde nicht gespeichert.", vbOKOnly, "PROZEDUR: ABBRUCH"
GoTo Exit_DatEingabeNEU_Click

KEINEZAHL:
msgbox "Dies ist keine Zahl! ", vbOKOnly + vbCritical, "PROZEDUR: KEINEZAHL"
GoTo START

FALSCHEINGABE:
msgbox "Das Datum wurde falsch eingegeben. Bitte verwenden Sie folgendes Format: tt.mm.jjjj", vbCritical, "PROZEDUR: EINGABEFEHLER"
GoTo START

SPEICHERN:
msgbox "Eingabe abgeschlossen", vbOKOnly, "PROZEDUR: ISTZAHL / DATEN GESPEICHERT"
' *** EINFÜGEPUNKT FÜR WIETERE PROZEDUR ***
GoTo Exit_DatEingabeNEU_Click

Exit_DatEingabeNEU_Click:
Exit Sub

Err_DatEingabeNEU_Click:
msgbox "F e h l e r i n d e r V e r a r b e i t u n g", vbCritical, "F E H L E R M E L D U N G"
Resume Exit_DatEingabeNEU_Click

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für ne Lösung oder Idee wäre ich echt dankbar ....

gruß engri

:)

Smaug · 17. Januar 2007

man könnte auch mit der IsDate-Funktion prüfen ob es sich um ein gültiges Datum handelt und wenn die Prüfung erfolgreich das Datum mit der Format-Funktion explizit in das gewünschte Format bringen

engri · 20. Januar 2007

Hört sich ganz brauchbar, aber leider bin nicht der VBA programmierer ... kannst Du mir ein lösungsvorschlag anbieten? ... Wäre echt Klasse!!!

User · 20. Januar 2007

Warum öffnest Du nicht ein kleines Formular mit 3 Feldern :

1. TT (1-31)
2. MM (1-12)
3. JJJJ (2007 - ????)

Alle Felder als Listenfelder und die Leute wählen einfach aus.
Wenn sie ok geklickt haben, prüfst Du und packst das Datum aus den 3 Feldern zusammen.

So müssen sie nicht eingeben und es ist relativ benutzerfreundlich !!!

Office: (Office 2003) Eingabe in Inputbox auf richtiges Format prüfen

Eingabe in Inputbox auf richtiges Format prüfen

Eingabe in Inputbox auf richtiges Format prüfen

Eingabe in Inputbox auf richtiges Format prüfen

Eingabe in Inputbox auf richtiges Format prüfen - Similar Threads - Eingabe Inputbox richtiges

Während der Eingabe überprüfen ob Zahl oder Text

Inhaltssteuerelemente - Textfarbe nach (!) erfolgter Eingabe

Eingaben in mehreren Spalten und Zeilen per Knopfdruck löschen

gezielt Daten aufzählen und zuordnen

in der InputBox Eingabe Werte begrenzen

Eingabe in InputBox verschlüsseln

InputBox - Eingabe von m² wird in Zelle nicht als m² angezeigt