Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.11.2023 00:03:27
userform Image mit LoadPicture Bild wird nicht geladen
28.11.2023 20:42:07
VBA - Bereich bis zur letzten nicht leeren Zelle kopieren
28.11.2023 19:48:15
Laufzeitfehler 50290 bei jeder zweiten Ausführung
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

CommandButton
TextBox
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige