in einer Userform habe ich mehrere Textboxen! Nun möchte ich über die F12-Taste oder CommandButton den Kalender aufrufen, ein Datum auswählen und in die aktive Textbox eintragen lassen. Nur wie weiß ich, welche textbox das gerade ist.
Die Textbox habe ich so aktiviert:
Sub TextBoxFrei(zeins)
num = MultiPage1.Value + 1
For z = 2 To 40
controls("TextBox" & z).Enabled = True
Textfeld(z) = controls("TextBox" & z).Value
Next z
controls("TextBox" & 2).SetFocus
End Sub
Der Kalender wird normal über einen Button aktiviert, das ist kein Problem:
Private Sub Kalender_Click()
Calender.Show
End Sub
Ich möchte eigentlich vermeiden, für jede einzelne Textbox eine Routine zu schreiben z.B.:
Private Sub textbox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Gruß
Roland