VBA: Kalender
19.03.2016 18:04:35
Lala
ich habe drei verschiedene Formulare eingebaut. Mittels eines Button soll in das jeweilige Formular das Datum eingetragen werden. Dafür habe ich als weiteres Steuerelement den Monthview eingebaut.
Der Code lautet wie folgt:
Private Sub fCal_DateClick(ByVal DateClicked As Date)
For Each uf In VBA.UserForms
If uf.Name = Cal.lblUF Then
For Each ctl In uf.Controls
If ctl.Name = Cal.lblCtrlName Then
'found the control to give the date to
ctl.Value = DateClicked
Me.Hide
End If
Next ctl
End If
Next uf
End Sub
Für den Button in meiner jeweiligen Userform:
Private Sub btnStDateCal_Click()
Cal.lblCtrlName = "tbDate"
Cal.lblUF = "UserForm1"
Cal.Show
End Sub
Für das Modul:
Sub openDPIcker ()
Userform1.Show
End Sub
Cal.lblCtrlName und Cal.lblUF sind als Label auf dem Formular Cal.
Für das erste Formular"UserForm1" hat alles geklappt: Button wird gedrückt, Kalender öffnet sich, Datum angegklickt, Datum wird ins Textfeld übertragen, Kalender schließt sich.
Ab dem zweiten Formular funktioniert es bloß leider nicht mehr. Anstelle "UserForm1" habe ich für das zweite Formular lediglich in "Userform2" geändert.
Hier drück ich den Button, wähle das Datum aus und es passiert nicht.
Hat da jmd evtl eine Idee?
Viele Dank
Anzeige