AW: Kalenderdatum in TextBox eintragen
29.08.2014 10:18:28
hary
Moin
Dein alter Kalender geht auch.Hier mal Textboxauswahl mit mit Mausklick
In das UserForm1:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
FRM_Kalender.Show
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
FRM_Kalender.Show
End Sub
'---usw----
In das Kalenderformular:
Private Sub KAL_Kalender_Click()
UserForm1.Controls(UserForm1.ActiveControl.Name).ActiveControl = KAL_Kalender.Value _
' ausgewähltes Datum eintragen
Unload Me ' Userform schließen
End Sub
gruss hary