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 :

Gruß, NoNet