@Gerd

Forumthread: @Gerd
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: @Gerd

@Gerd

Heike

Hallo Gerd,
doch noch eine Frage - sorry!!!
In "unserem" Code MUSS zwingend ein Datum eingetragen werden, in der Praxis ist es aber so, dass entweder kein Datum eingetragen wird und wenn doch, dann muss es ein korrektes Format (ist ja bisher so gelöst) haben.

Function Check_Datum(Tb As MSForms.TextBox) As Boolean
If IsDate(Tb.Text) Then
Tb.Text = CDate(Tb.Text)
If Tb.Text Like "##.##.####" Then Exit Function
End If
MsgBox "Eingabe nicht korrekt!"
Check_Datum = True 'springt wieder ins Feld
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
End Function

Ist es sehr aufwendig, das zu ändern? Würde mich natürlich sehr freuen, wenn es umzusetzen wäre.
Vielen Dank
Gruß
Heike

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: @Gerd

Gerd
AW: @Gerd => PERFEKT

Heike

AW: @Gerd

03.05.2012 00:28:16

Gerd

Hallo Heike,
das ist dann praxisorientierter u. Userfreundlicher. Bin leicht angegrippt, daher ungetestet.

Function Check_Datum(Tb As MSForms.TextBox) As Boolean
If Len(Tb.Text) > 0 Then
If IsDate(Tb.Text) Then
Tb.Text = CDate(Tb.Text)
If Tb.Text Like "##.##.####" Then Exit Function
End If
MsgBox "Eingabe nicht korrekt!"
Check_Datum = True 'springt wieder ins Feld
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
End If
End Function

Frohes Schaffen
Gerd

AW: @Gerd => PERFEKT

03.05.2012 00:43:42

Heike

Hallo Gerd,
trotz ungetestet und angegrippt: Funktioniert einwandfrei.
Vielen Dank für deine schnelle Hilfe und gute Besserung!
Gruß
Heike

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!