Datumsformat in Combobox
21.12.2005 10:46:11
Jochen
einige Herber-Fans hatten folgendes Problem:
In einer UF wurde eine Combobox angeleget die mittels RowSource mit Datumsangaben gefüllt wurde. Beim Aufklappen der Combobox wurden die Daten auch korrekt angezeigt, doch nach der Auswahl stand nur die Zahl (z.B. 38512) in der Combobox. Um dieses zu verhindern habe ich folgenden Trick angenwandt.
Ich habe in meiner UF eine Textbox1 (kann man ja unsichtbar schalten, wenn man sie nicht braucht) und dann folgendes VBA-Skript:
Private Sub ComboBox1_Change()
Dim Auswahl As Date
Auswahl = UserForm1.ComboBox1.Value
UserForm1.TextBox1.SetFocus
UserForm1.ComboBox1.Value = Auswahl
End Sub
Die Textbox ist notwendig, weil man die Combobox verlassen muss. Anschliessend schreibe ich einfach den Wert der Variable Auswahl, der ja mit "Dim as Date" als Datum fixiert wurde, in die Combobox.
Tja - manchmal liegt in der Einfachheit die Genialität.
Gruß und frohe Feiertage,
Jochen