Datum
21.09.2004 11:39:59
Daniel
ich habe ein UserFormular erstellt wo der User auch ein Datum eingeben muss.
Dies wird auch mit überprüft.
-->
Private Sub txtOrderDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(txtOrderDate.Text) Then
MsgBox "Kein gültiges Datum!"
txtOrderDate.SetFocus
Cancel = True
End If
End Sub
Jetzt soll dieses Datum auch in eine Excel Tabelle (Zelle) übernommen werden.
Dies mach ich zur Zeit so.
-->
Range("L5").Value = txtOrderDate
Range("L5").Select
Selection.NumberFormat = "dd/mmmm/yyyy"
Das Problem ist das die Zelle nicht als Datum Formatiert ist und ich das Datum nicht zum Rechnen verwenden kann.
Kann mir jemand helfen und mir einen Tip geben wie ich das Datum am besten übergeben kann.
Gruss und Danke für jede Hilfe.
Daniel
Anzeige