Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Kalender
19.03.2016 19:21:00 Lala
NotSolved
19.03.2016 20:35:12 Gast35918
NotSolved

Ansicht des Beitrags:
Von:
Lala
Datum:
19.03.2016 19:21:00
Views:
826
Rating: Antwort:
  Ja
Thema:
VBA Kalender

Hallo zusammen,

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Kalender
19.03.2016 19:21:00 Lala
NotSolved
19.03.2016 20:35:12 Gast35918
NotSolved