Datum in TextBox
23.04.2009 21:53:03
Frank
Ich bin ratlos und hoffe nicht auf euer Gelächter!!! Mein Wissen rund um VBA kommt allesamt aus dem Forum oder aus Büchern und nun bitte ich erneut um Rat!!!
Folgenden Code habe ich als ein vorläufigen Teil selbst gezimmert, der aber nicht funktioniert!!!
Private Sub ToggleButton1_Click()
frm001_Kalender.Show
If frm001_Kalender.Calendar1.Value Then
frm001_Tabelle4.TextBox41.Value = frm001_Kalender.Calendar1.Value
End If
If frm001_Kalender.Calendar2.Value Then
frm001_Tabelle4.TextBox41.Value = frm001_Kalender.Calendar2.Value
End If
frm001_Tabelle4.TextBox41.SetFocus
End Sub
In der UF frm001_Kalender befinden sich 12 Kalendersteuerelemente! Über das Ereignis UserForm_Initialize() ist jedem Kalender ein anderes Datum zugewiesen. Calendar1 01.01.2009 usw.
Nun möchte ich das sich immer das entsprechend ausgewählte Datum in die TextBox41 schreibt.
Geht das und wenn ja wie. Der Anfang wie oben dürfte reichen, denn dann kann ich vielleicht selbst ergänzen oder aber es gibt ne ganz andere tolle Lösung.
Vielen Dank im Voraus!!!
Gruß Frank H.