TextBox Eingabe in Datumsformat wandeln
04.02.2005 23:42:34
Andreas
ich habe eine Textbox, die ich mit einem Datum fülle.
Ich möchte eine Prüfung der Eingabe vornehmen und diese bei Unterscheidung eines bestimmten Datums, eine Msg-Box öffnen lassen.
Hier die Gegebenheiten:
Tabelle (Daten!a50): =heute() [Zelle ist im Datumsformat TT.MM.JJ]
Tabelle (Daten!b82): =heute() [Zelle ist auch im Datumsformat TT.MM.JJ, nimmt er aber nicht als Datum; denke als Text ?!]
Private Sub TxtBoxBeginnVers_AfterUpdate()
Range("Daten!b82") = (TxtBoxBeginnVers)
End Sub
Private Sub CmdBtnANErf_Click()
If Sheets("Daten").[c82] < Sheets("Daten").[a50] Then
MsgBox "Datum ist in der Vergangenheit!", vbInformation, "Falsches Datum"
Else
Hide
End If
End Sub
Hoffe, mir kann jemand helfen.
Grüße
Andreas
Anzeige