AW: Problem mit ComboBox
04.11.2009 20:15:10
Daniel
Hi
in der Auswahlliste erscheint das Datum doch hoffentlich schon im aktuellen Datumsformat.
um auch in der Auswahlzeile das Datum entsprechend anzeigen zu lassen, könntest du folgendes Makro verwenden:
Private Sub ComboBox1_Click()
If IsNumeric(ComboBox1.Value) Then ComboBox1.Value = _
Format(ComboBox1.Value, Sheets("Hilfsdaten").Range("E4").NumberFormat)
End Sub
Bei dieser Methode gibt es allerdings 2 Punkte, die du beachten musst:
1. der Wert der Combobox ist kein echtes Datum mehr (dh. eine Zahl), sondern nur ein normaler Textstring, der zufälligerweise wie ein Datum aussieht.
2. da der Wert nicht mehr mit einem Wert der Auswahlliste übereinstimmt, kannst du auch die Funktion Combobox1.Listindex zur Abfrage der Anwenderauswahl nicht mehr verwenden, da dieser immer -1 ist (kein Element der Auswahlliste)
eine 2. Möglichkeit wäre, die Kombobox über dieses Makro zu befüllen, anstelle der RowSource:
Dim Zelle As Range
ComboBox1.Clear
For Each Zelle In sheets("Hilfsdaten").Range("E4:E15")
ComboBox1.AddItem Zelle.Text
Next
auch hier wäre das Problem, daß der Comboboxwert ein Text und keine Zahl (=Datum) ist.
allerdings könntest du bei dieser Methode wieder mit der .Listindex-Eigenschaft arbeiten und über diesen Wert in Verbindung mit dem Zellbezug auf das echte Datum aus der Tabelle zugreifen.
eine einfachere Lösung gibts wahrscheinlich nicht, da das Feld der Combobox ein reines Textfeld ist und kein Zahlenformat kennt.
Gruß, Daniel