Hallo alle zusammen,
mit folgendem Code übertrage ich aus einer textbox aus einer Userform ein Datum in eine bestimmte Zelle.
Den Eintrag in der Textbox kontrolliere ich, ob ein korrektes Datum eingegeben wurde (mit "IsDate").
Das Datum kann aber immer noch in verschiedenen Formaten eingegeben werden, zb. 29.06.07 oder 29.06.2007. Ich möchte, dass das Format immer 29.06.2007 ist. Also bei Eingabe von 29.06.07 automatisch in 29.06.2007 umgewandelt wird.
Kann mir jemand helfen?
Danke im Voraus
Grüße aus Berlin
Mein Code
If Not IsDate(txtDatum.Text) = True Then
lbMsg = MsgBox("Geben Sie ein gültiges Datum ein", vbExclamation, "falsche Eingabe")
txtDatum.Text = ""
txtDatum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
Dim nz As Integer, rngZ As Range
nz = Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each rngZ In Rows(nz - 1).SpecialCells(xlCellTypeFormulas)
rngZ.Copy
Cells(nz, rngZ.Column).PasteSpecial Paste:=xlPasteFormulas
Next
Application.CutCopyMode = False
Cells(nz, 1).Value = CDate(Me.txtDatum)