Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kalender Steuerelement

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Datumsauswahl in Textboxen per Kalender
24.11.2009 14:07:33
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
Anzeige
AW: Datumsauswahl in Textboxen per Kalender
24.11.2009 14:27:21
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige