Office: TextBox mit Datum und Fehlermeldung

Hallo zusammen,

ich stehe gerade auf dem Schlauch und sehe wahrscheinlich den Wald vor lauter Bäumen nicht.

In einer TextBox darf nur ein Datum wiedergegeben werden, wenn nicht, kommt eine Fehlermeldung.
Die Eingabe wird über einen CommandButton bestätigt.
Das funktioniert auch soweit.
Nun möchte ich aber, dass wenn nichts in der TextBox steht, auch keine Fehlermeldung kommt.

Hintergrund ist der, dass man das Datum auch später eintragen können soll.

Hier mein bisheriger Code:
If Not IsDate(Text_Datum_Umsetzung1_1.Value) Then
MsgBox "Bitte nur Datum eingeben!"
Text_Datum_Umsetzung1_1.Value = ""
End If

Damit bekomme ich die Fehlermeldung aber auch, wenn nichts in der Box steht und genau das möchte ich verhindern.

Ich hoffe ihr könnt mir weiterhelfen.


Gruß
Honk

 

Hallo Honk,

dieser Quelltext steht im Modul der Schaltfläche?

 

Hallo Honk,

bei mir kommt eine Fehlermeldung.

 

Hallo Klaus-Dieter,

der Vollständigkeit halber hier der komplette Code.

Private Sub Button_RevOK1_1_Click()
'TextBox Datum_Umsetzung1_1
'TextBox lässt nur Datum zu
If Not IsDate(Text_Datum_Umsetzung1_1.Value) Then
MsgBox "Bitte nur Datum eingeben!"
Text_Datum_Umsetzung1_1.Value = ""
End If
'Datum in TextBox formatieren, so dass es immer richtig wiedergegeben wird
Text_Datum_Umsetzung1_1 = Format(Text_Datum_Umsetzung1_1.Value, "dd.mm.yyyy")
'Datum auf Vergangenheit prüfen
If Text_Datum_Umsetzung1_1 < CDate(Now) Then
MsgBox "Datum falsch!"
End If
'Datum in Zelle formatieren, so dass es immer richtig wiedergegeben wird
Range("C9").NumberFormat = "dd,mm,yyyy"
'Datum in Zelle eintragen
Range("C9").Value = Text_Datum_Umsetzung1_1
End Sub

Bei mir funktioniert er so.
Bloß dass wenn nichts in der TextBox steht und man den Button betätigt, ebenfalls die MsgBox "Datum falsch" aufpoppt.
Und genau DAS möchte ich nicht.


Gruß
Honk

 

Hallo Honk,

das ist eine Fehlerbeschreibung, mit der man etwas anfangen kann. So hat es sich bei mir auch dargestellt.

Noch ein Hinweis: persönlich finde ich es lästig, wenn die Objekte umgetauft werden. Zwar kann man darüber vortrefflich streiten, aber oft ist bei solchen Quelltexten noch nicht einmal ersichtlich, um welche Art Objekt es sich handelt. Das erschwert Analysen.

 

Hallo Honk,

nicht so elegant, aber funktioniert erst einmal.

Code:

Private Sub Button_RevOK1_1_Click()
    'TextBox Datum_Umsetzung1_1
    'TextBox lässt nur Datum zu
    Select Case Text_Datum_Umsetzung1_1.Value
        Case Not IsDate(Text_Datum_Umsetzung1_1.Value)
            MsgBox "Bitte nur Datum eingeben!"
            Text_Datum_Umsetzung1_1.Value = ""
        Case ""
            MsgBox "Bitte ein Datum eingeben!"
            Text_Datum_Umsetzung1_1.Value = ""
    End Select
    'Datum in TextBox formatieren, so dass es immer richtig wiedergegeben wird
    Text_Datum_Umsetzung1_1 = Format(Text_Datum_Umsetzung1_1.Value, "dd.mm.yyyy")
    'Datum auf Vergangenheit prüfen
    If Text_Datum_Umsetzung1_1 < CDate(Now) Then
        MsgBox "Datum falsch!"
    End If
    'Datum in Zelle formatieren, so dass es immer richtig wiedergegeben wird
    Range("C9").NumberFormat = "dd,mm,yyyy"
    'Datum in Zelle eintragen
    Range("C9").Value = Text_Datum_Umsetzung1_1
End Sub

 

Hallo Klaus-Dieter,

vielen Dank, das funktioniert wunderbar.
Nur ein Problem habe ich damit jetzt wieder.
Wenn ich jetzt statt eines Datums einen Text oder sonst einen Blödsinn reinschreibe (z.B. ghsghsgh), wird das ins Formular übernommen.
Das war mit meiner alten Version nicht so.
Hättest du da noch nen Tipp?
Ansonsten ist die Lösung super!

Gruß
Honk