Format hh:mm + Text im Combofeld

Bild

Betrifft: Format hh:mm + Text im Combofeld
von: Stefan
Geschrieben am: 26.10.2003 17:09:00

Hallo Leute
Nochmal

Folgendes möchte in ein bestehendes Kombinationsfeld das bisher die Auswahl von verschiedenen Uhrzeiten hatte

11:00 - 12:00 - 13:00 usw.

mit Texteinträgen erweitern.

z.b. 11:00 - 12:00 - 13:00 - Ausgelaufen - Erledigt u.s.w

Bisher habe ich um eine korekte Formatierung zu erhalten jenen VBA eintrag


Private Sub ComboBox2_Change()
ComboBox2.Value = Format(CDate(Cells(18, 4)), "hh:mm")
End Sub


Jedoch bekomme ich bei auswahl einesTexteintrages nun immer einen Laufzeitfehler 13 -Typen Unverträglich

wie lässt sich dieses beheben

Please Help !
Bild


Betrifft: AW: Format hh:mm + Text im Combofeld
von: Josef Ehrensberger
Geschrieben am: 26.10.2003 17:26:24

Hi Stefan,

probier mal so:


Private Sub ComboBox2_Change()
if IsDate(Cells(18,4) Then
ComboBox2.Value = Format(CDate(Cells(18, 4)), "hh:mm")
Else
ComboBox2.Value = Cells(18, 4)
End If
End Sub


Gruß Sepp


Bild


Betrifft: AW: Format hh:mm + Text im Combofeld
von: Stefan
Geschrieben am: 26.10.2003 18:13:35

Funktioniert leider nicht

Private Sub ComboBox2_Change()
if IsDate(Cells(18,4) Then  ---- DIESER ABSATZ WIRD ROT GEKENNZEICNET----
ComboBox2.Value = Format(CDate(Cells(18, 4)), "hh:mm")
Else
ComboBox2.Value = Cells(18, 4)
End If
End Sub


Trotzdem Danke
Sepp


Bild


Betrifft: IsNumeric statt IsDate (o.T.)
von: Josef Ehrensberger
Geschrieben am: 26.10.2003 18:54:08

/


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Format hh:mm + Text im Combofeld"