Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Uhrzeit in ComboBox

Forumthread: Uhrzeit in ComboBox

Uhrzeit in ComboBox
14.10.2022 11:49:42
Henry
Hallo,
ich habe ein Problem mit der Darstellung der Uhrzeiten in meiner ComboBox1.
Mann soll zum Beispiel auswählen können: 00:00, oder 00:05, oder 14.35.
Hierzu habe ich über RowSource eine Liste geladen.
Das klappt soweit auch gut.
Wenn ich allerdings 12:00 auswähle, dann erscheint in der ComboBox1 00:00.
Wie kann ich das ändern?
ich habe bei ComboBox1_Change folgenden Code stehen:
cmb_uhrzeitvon = Format(cmb_uhrzeitvon, "hh:mm")
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit in ComboBox
14.10.2022 13:10:33
Henry
Super das hat geholfen! :-)
Vielen Dank.
Vielleicht kannst du mir noch bei einer anderen Sache weiterhelfen.
Ich habe den Code hinter meine beiden Comboboxen gelegt.
Nun möchte ich die Zeitdifferenz ausrechnen.
Bei folgendem Code bekomme ich einen Fehler.
txt_zeitfenster = DateDiff("hh:mm", cmb_uhrzeitbis, cmb_uhrzeitvon)
Anzeige
AW: Uhrzeit in ComboBox
14.10.2022 18:04:35
Luschi
Hallo Henry,
in Comboboxen stehen nur Textwerte, diese muß man nach folgendem Muster umwandeln:
Dim t1 As Date, t2 As Date
t1 = TimeValue(ComboBox1.Value)
t2 = TimeValue(ComboBox2.Value)
Debug.Print t1, t2, Format(t2 - t1, "hh:mm:ss")
Gruß von Luschi
aus klein-Paris
AW: Uhrzeit in ComboBox
14.10.2022 20:26:29
snb
Ignoriere die Antwort von Luschi.

msgbox  format(cmb_uhrzeitbis-cmb_uhrzeitvon,"hh:mm"))

Anzeige
AW: Uhrzeit in ComboBox
14.10.2022 21:45:36
Luschi
Hallo snb,
also mein E_2019-Vba kann das nicht:
- 1 Klammer zu viel
- ansonsten Laufzeitfehler 13: Typen unverträglich
Das, was die Excel-Formeln können: =TEXT("14:30"- "9:45"; "hh:mm"), hat man der Vba-Format-Funktion nicht unbedingt vererbt.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Uhrzeit in ComboBox
15.10.2022 15:22:30
snb
3 Methoden:

Private Sub UserForm_Initialize()
ComboBox1.List = [transpose(text((row(1:96)-1)/96,"hh:mm"))]
ComboBox2.List = ComboBox1.List
End Sub
Private Sub UserForm_Click()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 And ComboBox2 > ComboBox1 Then MsgBox Format(CDate(ComboBox2) - CDate(ComboBox1), "hh:mm")
End Sub


Private Sub UserForm_Initialize()
ComboBox1.List = [transpose(text((row(1:96)-1)/96,"hh:mm"))]
ComboBox2.List = ComboBox1.List
End Sub
Private Sub UserForm_Click()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 And ComboBox2 > ComboBox1 Then MsgBox Format((ComboBox2.ListIndex - ComboBox1.ListIndex) / 96, "hh:mm")
End Sub


Private Sub UserForm_Initialize()
ComboBox1.List = [transpose((row(1:96)-1)/96)]
ComboBox2.List = ComboBox1.List
End Sub
Private Sub UserForm_Click()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 And ComboBox2 > ComboBox1 Then MsgBox Format(ComboBox2.Column(0) - ComboBox1.Column(0), "hh:mm")
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige