TextBox Eingabe in Datumsformat wandeln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: TextBox Eingabe in Datumsformat wandeln von: Andreas
Geschrieben am: 04.02.2005 23:42:34

HAllo zusammen,

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
Bild


Betrifft: AW: TextBox Eingabe in Datumsformat wandeln von: Ulf
Geschrieben am: 04.02.2005 23:45:51

Private Sub TxtBoxBeginnVers_AfterUpdate()
sheets("Daten").[b82] = CDate(TxtBoxBeginnVers)
End Sub


Ulf


Bild


Betrifft: AW: TextBox Eingabe in Datumsformat wandeln von: Andreas
Geschrieben am: 04.02.2005 23:52:32

Danke Ulf....

Grüße

Andreas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "TextBox Eingabe in Datumsformat wandeln"