Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ComboBox in "hh:mm"

ComboBox in "hh:mm"
Heinz
Guten morgen
Habe unteren Code. der mir in A4:K6000 einen Autofilter setzt.
Habe in einen Sheets in Spalte B4:B6000 eine Uhrzeit stehen.
Nur wird mir diese nicht richtig angezeigt.
Habe im Sheets in B4:B6000 das Format "hh:mm"
Wie würden bitte die beiden ComboBoxen richtig Formatiert gehören ?
Gruß
Heinz

Private Sub cmdZeit_Click()
Range("A4:K6000").AutoFilter _
field:=1, _
Criteria1:=">=" & TimeSerial(CDate(ComboBoxZeitA.Text)), _
Operator:=xlAnd, _
Criteria2:="

Anzeige

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

Betreff
Benutzer
Anzeige
AW: ComboBox in "hh:mm"
02.02.2011 10:00:13
Rudi
Hallo,
muss doch auch Field:=2 heißen.
Private Sub cmdZeit_Click()
Range("A4:K6000").AutoFilter _
field:=2, _
Criteria1:=">=" & CDate(ComboBoxZeitA.Text), _
Operator:=xlAnd, _
Criteria2:="

Gruß
Rudi
AW: ComboBox in "hh:mm"
02.02.2011 13:14:19
Heinz
Hallo Rudi
Ja habe den Fehler auch schon bemerkt.
muss doch auch Field:=2 heißen.
Aber an dem alleine kann es auch nicht liegen.
Habe alle im Sheets ab B5 in "hh:mm" formatiert.
Gruß
Heinz
Userbild
Anzeige
AW: ComboBox in "hh:mm"
02.02.2011 13:47:28
Christian
Hallo Heinz,
beim Füllen der Combobox (via AddItem) kannst du die Werte im gewünschten Format übergeben:
Bsp:
Private Sub UserForm_Initialize()
Dim i As Long
With Sheets("Tabelle1")
For i = 2 To 20
Me.ComboBox1.AddItem Format(.Cells(i, 1), "hh:mm")
Next
End With
End Sub
Gruß
Christian
Anzeige
AW: ComboBox in "hh:mm"
02.02.2011 14:00:48
Heinz
Hallo Christian
Komme damit leider nicht ganz klar.
Habe mal eine Beispielmappe eingefügt.
Könntest du mir Bitte für Spalte B=Zeit und Spalte H=Gesp. ein Beispiel eingeben?
Danke
Heinz
https://www.herber.de/bbs/user/73361.xls
Anzeige
AW: ComboBox in "hh:mm"
02.02.2011 14:52:37
Rudi
Hallo,
Private Sub UserForm_Activate()
Dim i As Integer
With ComboBoxStart
.Clear
.List = UniqueList(Sheets("Sortierrapport").Range("A5:A6000"))
End With
With ComboBoxEnd
.Clear
.List = UniqueList(Sheets("Sortierrapport").Range("A5:A6000"))
End With
With ComboBoxZeitA
.Clear
.List = UniqueList(Sheets("Sortierrapport").Range("B5:B6000"))
For i = 1 To .ListCount
.List(i - 1) = Format(.List(i - 1), "h:mm")
Next
End With
With ComboBoxZeitB
.Clear
.List = UniqueList(Sheets("Sortierrapport").Range("B5:B6000"))
For i = 1 To .ListCount
.List(i - 1) = Format(.List(i - 1), "h:mm")
Next
End With
.....

Gruß
Rudi
Anzeige
AW: Danke an Christian & Rudi
02.02.2011 17:25:35
Heinz
Hallo Christian & Rudi
Ich bedanke mich recht herzlich,bei euch beiden.
Funktioniert wie gewollt.
Gruß
Heinz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige