HERBERS Excel-Forum - das Archiv

Thema: Kalender Steuerelement | Herbers Excel-Forum

Kalender Steuerelement
kirsche

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

Datumsauswahl in Textboxen per Kalender
NoNet

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 :
Userbild
Gruß, NoNet
AW: Datumsauswahl in Textboxen per Kalender
kirsche

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