Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Kalender Steuerelement | Herbers Excel-Forum


Betrifft: Kalender Steuerelement von: kirsche
Geschrieben am: 24.11.2009 13:41:39

hallo leute,

ich habe eine UF mit 5 textboxen. hier soll ein datum eingegeben werden. nun möchte ich, wenn eine textbox aktiviert wird, ein kalender steuerelement aufrufen und das angeklickte datum in die textbox transportieren.

wie bewerkstellige ich dieses? brauche ich dafür eine weitere UF mit dem kalender? wie komme ich dann in die aktive textbox zurück? oder gibt es auch noch einen anderen weg?

ich freue mich auf eure hilfe.
gruss dörte

  

Betrifft: Datumsauswahl in Textboxen per Kalender von: NoNet
Geschrieben am: 24.11.2009 14:07:33

Hallo Dörte,

JA, das lässt sich am besten mit 2 UserForms lösen :
kopiere in das UserForm mit den Textboxen folgenden VBA-Code :

Private Sub TextBox1_Enter()
    If IsDate(TextBox1) Then
        UF_Kalender.Calendar1 = DateValue(TextBox1)
    Else
        UF_Kalender.Calendar1 = Date
    End If
    
    UF_Kalender.Caption = "Von Datum :"
    UF_Kalender.Show
    
    If Not UF_Kalender.Calendar1.ValueIsNull Then TextBox1 = UF_Kalender.Calendar1
End Sub

Private Sub TextBox2_Enter()
    If IsDate(TextBox2) Then
        UF_Kalender.Calendar1 = DateValue(TextBox2)
    Else
        UF_Kalender.Calendar1 = Date
    End If
    
    UF_Kalender.Caption = "Bis Datum :"
    UF_Kalender.Show
    
    If Not UF_Kalender.Calendar1.ValueIsNull Then TextBox2 = UF_Kalender.Calendar1
End Sub

In das zweite UserForm (Name : UF_Kalender) erstellst Du nur das Kalender-Steuerelement und 2 Schaltflächen ("OK" und "Abbrechen"). hier kopierst Du folgenden VBA-Code hinein :
Private Sub CommandButton1_Click()
    Me.Hide
End Sub

Private Sub CommandButton2_Click()
    Me.Calendar1.ValueIsNull = True
    Me.Hide
End Sub
Und SO könnte das dann aussehen :



Gruß, NoNet


  

Betrifft: AW: Datumsauswahl in Textboxen per Kalender von: kirsche
Geschrieben am: 24.11.2009 14:27:21

hallo NoNet,

danke für deine hilfe, habe zwar ein wenig dran zu knabbern gehabt, aber nun funzt es einwandfrei.
voll freu, und wieder ein stück schlauer.

gruß dörte


Beiträge aus den Excel-Beispielen zum Thema "Kalender Steuerelement"