ComboBox mit Uhrzeiten füllen

Forumthread: ComboBox mit Uhrzeiten füllen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: ComboBox mit Uhrzeiten füllen

Kasimir

Hallo Leute,
ich würde gerne eine ComboBox über eine Schleife mit Uhrzeiten von 00:00 bis 23:55 füllen. Der 1. Wert soll 00:00 sein und dann soll der Wert immer um 5 Minuten erhöht werden.
Beispiel:
00:00
00:05
00:10
00:15
usw.
Jemand ein Beispiel für mich parat?
Danke Euch für Eure Unterstützung,
Kasimir

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: ComboBox mit Uhrzeiten füllen

Josef
AW: ComboBox mit Uhrzeiten füllen

Kasimir

AW: ComboBox mit Uhrzeiten füllen

24.07.2010 23:36:02

Josef

Hallo Kasimir,
das geht z.B. so.

Sub uhrzeit()
  Dim lngC As Long
  With Sheets("Tabelle2").ComboBox1
    .Clear
    For lngC = 0 To 1435 Step 5
      .AddItem Format(TimeSerial(0, lngC, 0), "hh:mm")
    Next
  End With
End Sub

Gruß Sepp

AW: ComboBox mit Uhrzeiten füllen

25.07.2010 08:53:54

Kasimir

Hallo Sepp,
danke Dir für Deine Antwort und das bestens funktionierende Beispiel. Auf die Funktion "TimeSerial" wär ich im Leben nicht gekommen.
Nochmal Danke und einen schönen Sonntag,
Kasimir