Office: TextBox nicht verlassen, wenn Eingabe kein Datum

Popolita · 14. Juni 2009

Hallo zusammen,

nachdem ich nun einen Grundlagen Kurs in Excel-VBA belegt habe, konnte ich einige meiner Probleme selbst lösen. *Smilie

Jedoch bin ich auf ein neues gestoßen *frown.gif*

Es wird eine TextBox (BeginnTage) mit einem Datum beschrieben. Wenn es kein Datum ist, öffnet sich mit folgendem Code eine Fehlermeldung.

Nun möchte ich, das der Cursor in der TextBox (BeginnTage) verbleibt, wenn kein Datum eingegeben wurde. Erst wenn das Datum korrekt ist, soll eine weitere Eingabe in anderen TextBoxen möglich sein.

Mit .SetFocus hab ichs auch schon probiert, dass will alles nicht.

Habt ihr eine Idee? Es wäre toll wenn ja, so wie immer! *wink.gif*

Code:

Private Sub BeginnTage_AfterUpdate()
Dim Taste As Variant

If Not IsDate(BeginnTage) Then
Taste = MsgBox("Sie haben kein Datum eingegeben!", vbOKOnly + vbExclamation, "Eingabefehler")
Else
With Sheets("Formular IKK")
.Cells(54, 2) = CDate(BeginnTage)
End With

With Sheets("Formular DAK")
.Cells(24, 9) = CDate(BeginnTage)
End With

With Sheets("Formular BEK")
.Cells(27, 8) = CDate(BeginnTage)
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DANKE!

:)

jinx · 16. Juni 2009

Moin, Popolita,

warum nutzt Du dann nicht das KeyPress-Ereignis und lässt nur die Zahlen sowie als Trennzeichen Punkte zu?

Erst wenn das Datum korrekt ist,
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Heißt das ein gültiges oder ein "gefälliges" Datum?

Versuch es bitte einmal so (hier mit zweistelliger Jahreszahl):

Code:

Private Sub BeginnTage_Change()
' Herber 030598
Dim sTxt As String
If BeginnTage.Text = "" Then Exit Sub
sTxt = BeginnTage.Text
If Right(sTxt, 1) Like "[!0-9]" Then
BeginnTage.Text = Left(sTxt, Len(sTxt) - 1)
Exit Sub
End If
If IsNumeric(sTxt) = False Then GoTo ERRORHANDLER
If Len(sTxt) = 6 Then
sTxt = Left(sTxt, 2) & "." & Mid(sTxt, 3, 2) _
& "." & Right(sTxt, 2)
If Not IsDate(sTxt) Then
GoTo ERRORHANDLER
Else
BeginnTage.Text = sTxt
Exit Sub
End If
End If
Exit Sub
ERRORHANDLER:
Beep
MsgBox "Kein Datum!"
BeginnTage.Text = ""
BeginnTage.SetFocus
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Popolita · 29. Juni 2009

Hallo,

nach einer kurzen Denk- und Schaffenspause habe ich das Problem mit einem Extra Sub gelöst.

Danke jinx für Deine Variante, doch diese scheint mir in unserer Firma sicherer! *wink.gif*

Code:

Private Sub BeginnTage_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Taste As Variant

If Not IsDate(BeginnTage) Then 'prüft ob in dem Feld ein Datum ist
Taste = MsgBox("Sie haben kein Datum eingegeben", vbExclamation + vbOKCancel, "Eingabefehler")
Cancel = True
End If

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

Sonnigen Tag noch!

LG Popolita

Office: TextBox nicht verlassen, wenn Eingabe kein Datum

TextBox nicht verlassen, wenn Eingabe kein Datum

TextBox nicht verlassen, wenn Eingabe kein Datum

TextBox nicht verlassen, wenn Eingabe kein Datum - Similar Threads - TextBox verlassen Eingabe

Wert aus 2 TextBoxen suchen

Textboxen

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Text Box

VBA Kopieren von Zelleninhalte in Textbox

Tabulatorsprung rückgangig machen, wenn Textbox leer verlassen wurde

Ereignis: Verlassen einer Textbox