ich möchte in einer Userform über eine Textbox ein Datum im Format tt.mm.jj eingeben. In einem Makro möchte ich daraus die zugrunde liegende serielle Zahl ermitteln. Weiß jemand wie das geht?
MfG Karl Gerber
Sub Makro5()
Range("a1").Select
Selection.NumberFormat = "General"
End Sub
Private Sub CommandButton1_Click()
MsgBox CLng(CDate(TextBox1.Value))
End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now, "DD.MM.YY")
End Sub