|
Hallo Adrian
schonmal das "On Error Resume Next" weg gelassen?
dann hättest du gesehen, dass deine Formatierung in einen Fehler läuft
und die On Error-Anweisung besagt, dass alle Fehler ignoriert werden!
dadurch wird dein Listindex nicht errechnet und so kommt dabei 0 heraus
was soll überhaupt die Formatierung?
willst du wirklich um, sagen wir mal 03:00 Uhr dann in der Combobox 30.12.1899_03:00 stehen haben?
schau mal ob es so passt
Private Sub ComboBox1_Change()
' On Error Resume Next
Me.ComboBox1.Value = Format(CDate(ComboBox1.Value), "hh:mm")
Sheets("Jahresbetrachtung").Range("F1").Value = Me.ComboBox1.ListIndex + 1
End Sub
Private Sub ComboBox2_Change()
' On Error Resume Next
Me.ComboBox2.Value = Format(CDate(ComboBox2.Value), "hh:mm")
Sheets("Jahresbetrachtung").Range("G1").Value = Me.ComboBox2.ListIndex + 1
End Sub
MfG Tom
|