ComboBox mit Datumsformat
28.10.2004 07:32:18
M.
Ich habe mir nun schon die ganze Nacht um die "Ohren gehauen" und auch intensiv die Recherche genutzt, bin aber noch zu keinem brauchbaren Ergeniss gekommen.
Meine Excel-Mappe enthält eine UserForm, in der wiederrum eine ComboBox eingefügt ist. Dort soll ein Datum aus einer gesonderten Liste ausgewählt werden. Es erscheint die Datumsliste im entsprechenden Format. Nur die Auswahl wird dann in 5 stelliger Zahl angegeben. Folgender Code in der UserForm bringt fast Abhilfe:
Private Sub ComboBox1_Exit(ByVal cancel As MSForms.ReturnBoolean)
ComboBox1 = Format(ComboBox1.Value, "dd.mm.yy")
End Sub
Private Sub userform_initialize()
ComboBox1 = Format(ComboBox1.Value, "dd.mm.yy")
End Sub
Nicht das ich verstehen würde, was da "passiert". 'Ne evtl. Erklärung wäre nett.
Leider ist es aber so, dass ich bei der Auswahl immer noch die 5 stellige Zahl sehe und erst wenn die Eingabe mit Enter abgeschlossen wird das richtige Datum erscheint. Kann ich das auch noch elemnieren?
Martin vom Gruss (oder andersrum)
P.S.: Ist mal wieder etwas länger geworden, aber so versteht man es hoffentlich.