Live-Forum - Die aktuellen Beiträge
Datum
Titel
31.05.2024 09:50:46
Duplikate löschen
31.05.2024 09:05:28
Tabellenblatt
31.05.2024 08:41:16
Bed. Formatierung bei verbundenen Zellen/Switch zw. Wochen
30.05.2024 23:29:11
Datenbank:Automatisch filtern in neue Excel kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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")

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)
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
Anzeige
AW: Uhrzeit in ComboBox
14.10.2022 20:26:29
snb
Ignoriere die Antwort von Luschi.

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

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
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

Links zu Excel-Dialogen

ComboBox ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige