Hallo zusammen,
unzwar verzweifle ich gerade an einem Punkt. Ich habe eine einfache Userform wo ich eine Textbox und ein CMD Button habe. Wenn ich auf den CMD Button klicke geht ein Kalender auf und mein Ziel ist es das ausgewählte Datum in die Textbox zu übetragen. Ich zeige nun folgend den Code:
Sub BasicCalendar()
Datum = CalendarForm.GetDate
If Datum <> 0 Then Range("A2") = Datum
End Sub
Wenn ich ich es in Zelle A2 übetrage funktioniert es einwandfrei. Wenn ich nun aber anstatt A2 folgendes eingebe:
Sub BasicCalendar()
Datum = CalendarForm.GetDate
If Datum <> 0 Then Textbox.1.text = Datum
End Sub
Dann wirft er mir den Fehlercode 424... Meine Idee war es einfach eine Textbox anstatt eine Zelle zu befüllen... Was übersehe ich da...?? Wie ihr sehr sind meine VBA Kentnisse noch sehr überschaubar.
Ich danke jetzt bereits vielmals für eure Hilfe.
Danke
Daniel
|