Ausgewähltes Datum in Zelle schreiben ?
21.12.2003 19:54:29
Walter
ich habe folgende VB-Makros mir zusammengesucht:
Private Sub spnDate_Change()
txtDate = Format(spnDate, "dd.mm.yyyy")
End Sub
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 'Eingabe ist kein gültiges Datum
spnDate = CLng(dat)
End Sub
Im übrigen funktioniert.
Wie erreiche ich es das das Datum welches ich mit dem SpinButton ausgewählt habe
in meine Arbeitsmappe schreiben kann ?
Meine Arbeitsmappe: Worksheets("Geburtstagsliste").Range("A1")
vielleicht kann mir jemand heute Abend noch helfen?
Gruss Walter
Anzeige