Office: (Office 2016) automatisches Anpassen der Textbox Datum, wenn sich Werte in Comboboxen ändern

Hallo,

ich habe eine Frage und ein kleines Problem und ich vielleicht ist es auch nur eine Kleinigkeit. Bin noch nicht so gut in Umgang mit VbA.

Ich habe mir eine Userform gebaut, wo ich mir durch 3 Comboboxen das Datum einstelle und in einer Textbox wiedergeben lasse.

In Combobox1 stelle ich den Tag ein und in Combobox2 den Monat und in der 3. Combobox das Jahr.

In der Textbox1 lasse ich mir mit

Privat Sub Userform_ Initialize()

TextBox1.Value = cboDay.Value & "." & cboMonth.Value & "." & cboYear.Value

End Sub

das Datum anzeigen und per Commandbutton füge ich mir das Datum in eine Celle ein.

Bis dahin klappt alles gut, aber jetzt mein Problem und wo ich eine Gedankenfehler habe.

Wenn ich dann ein anderes Datum in den Comboboxen einstelle, wird natürlich so nicht automatisch das Datum in der Textbox1 angepasst. Wo muss ich jetzt einen Befehl einbauen das dass Datum sich automatisch anpasst?
Genauso auch, wenn ich dann über meinen Button auf übernehmen gehe, soll er das Datum auch anpassen, denn bisher ändert es sich nicht.

Das ist der Code dazu.
Private Sub CommandButton1_Click()
Sheets("Prüfungsübersicht").Range("c12").Value = Format(TextBox1.Value, "dd.mm.yyyy")

Unload frmKalender
End Sub

Ich würde mich freuen, wenn jemand eine Idee hat.

Schönen Abend noch

 

Hi,

benutze das Change-Ereignis jeder der 3 ComboBoxen um das Datum in der TextBox zu ändern. Das geänderte Datum schreibst du dann mit dem CommandButton wieder in die Zelle.

Bis später,
Karin

 

Hallo Karin,

vielen Dank für Idee. Ich habe es jetzt Dank Deiner Anregung endlich hinbekommen.

Wünsche Dir einen wunderschönen Tag