Datum eingeben in...
12.09.2005 20:40:30
Walter
habe folgendes Makro, kann aber leider in der Textbox kein Datum so eingeben,
z.b. 10.11.2004 springt immer direkt auf 2020 Wieso ?
Private Sub txtDate_Change()
Dim dat As Date
On Error Resume Next
If Not txtDate Like "*.*.?*" Then Exit Sub
dat = CDate(txtDate)
If Err <> 0 Then Exit Sub
spnDate = CLng(dat)
Worksheets("Muster").Range("A11") = CDate(txtDate)
Label4.Caption = Format(spnDate, "dddd")
If txtDate = "00:00:00" Then Label4.Caption = ""
dat = CDate(Worksheets("Muster").Range("A11"))
Sheets("Muster").Select
Sheets("Muster").Unprotect ("ww")
ComboBox4.RowSource = ("AV322:AV332")
ComboBox4.Value = Worksheets("Muster").Range("AV318")
End Sub
dann habe ich dazu noch:
Private Sub spnDate_Change()
Sheets("Muster").Visible = True
Sheets("Muster").Unprotect ("ww")
Sheets("Muster").Select
txtDate = Format(spnDate, "dd.mm.yyyy")
If txtDate <> Worksheets("Muster").Range("A11").Value Then
txtDate = Worksheets("Muster").Range("A11").Value
Label4.Caption = ""
Else
Worksheets("Muster").Range("A11") = CDate(txtDate)
End If
End Sub
Wie kann man das hinbekommen, das man auch das Datum so reinschreiben kann ?
Gruß Walter