TextBox mit richtigem Wert automatisch befüllen
Josef
Ich habe in einer UserForm 2 TextBoxen. Wenn in der TextBox42 z.B. das Datum 31.05.2010 steht dann soll in der TextBox74 der 01.06.2010 automatisch eingetragen werden. Ist die TextBox42 leer, dann soll auch kein Eintrag in der TB 74 erfolgen. Bei meinem Beispiel unten wird der Wert 31052011 eingetragen, ohne Punkt und falsch auch noch dazu. Wo liegt hier bitte mein Fehler?
Danke
Josef
Private Sub TextBox42_Change()
If TextBox42.Text = "" Then
TextBox74.Text = ""
End If
If TextBox42.Value = True Then
TextBox74.Text = TextBox42.Text + 1
End If
End Sub
Anzeige