Datum

Titel

25.04.2024 23:47:55

Datum ausweisen, wenn definierte Summe erreicht ist

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1196to1200

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

ComboBox in "hh:mm"

Forumthread: ComboBox in "hh:mm"
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

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:="

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: ComboBox in "hh:mm"

Rudi
AW: ComboBox in "hh:mm"

Heinz
AW: ComboBox in "hh:mm"

Christian
AW: ComboBox in "hh:mm"

Heinz
AW: ComboBox in "hh:mm"

Rudi
AW: Danke an Christian & Rudi

Heinz

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

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

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

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

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