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:
1587		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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