Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
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
Zeitformat in Auswahlfeld (ComboBox)
Gegga
Hallo zusammen...
So langsam zweifel ich an mir selbst...
Mit folgendem Code befülle ich meine Auswahlboxen:
Dim zelle_Dauer As Range
Dim bereich_Dauer, colTmp_Dauer As New Collection
Set bereich_Dauer = [DAUER]
On Error Resume Next
For Each zelle_Dauer In bereich_Dauer
Err.Clear
colTmp_Dauer.Add zelle_Dauer, zelle_Dauer
If Err = 0 And zelle_Dauer "" Then cb_Dauer.AddItem zelle_Dauer.Value
Next
On Error GoTo 0
Ich habe auf Sheet Tabelle2 den Bereich B4 bis B100 mit dem Namen DAUER versehen.
In dieser Spalte stehen Minutenzeiten im Format [hh]:mm in 5 Min. Schritten.
Aus mir unerfindlichen Gründen werden aber diese Werte nicht in das Auswahlfeld meiner Userform übernommen.
Bei drei weiteren Befüllungen (Text) von anderen Auswahlfeldern in dieser UF klappt es tadellos...
Was mache ich falsch oder woran liegt es?
Weil wenn ich in der Spalte B irgendwo nen Text eingebe, taucht dieser in dem Auswahlfeld auf.
Also kann es doch nur an dem Zellformat liegen?
Vielen Dank für eure Hilfe!!!
Gruß Gegga

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeitformat in Auswahlfeld (ComboBox)
21.05.2010 09:10:39
Hajo_Zi
Hallo Gegga,
nicht .value sondern .Text

AW: Zeitformat in Auswahlfeld (ComboBox)
21.05.2010 10:34:32
Gegga
Hallo Hajo...
Meinst du so?
Dim zelle_Dauer As Range
Dim bereich_Dauer, colTmp_Dauer As New Collection
Set bereich_Dauer = [DAUER]
On Error Resume Next
For Each zelle_Dauer In bereich_Dauer
Err.Clear
colTmp_Dauer.Add zelle_Dauer, zelle_Dauer
If Err = 0 And zelle_Dauer "" Then cb_Dauer.AddItem zelle_Dauer.Text
Next
On Error GoTo 0
Habe ich versucht, funktioniert aber leider auch ned.
Noch nen Vorschlag?
Gruß Gegga
Anzeige
AW: Zeitformat in Auswahlfeld (ComboBox)
21.05.2010 10:36:38
Hajo_Zi
Hallo Gega,
ich sehe Deine Datei nicht, ja so hatte ich es gemeint.

AW: Zeitformat in Auswahlfeld (ComboBox)
21.05.2010 10:40:20
Gegga
Hallo Hajo...
Nach dem Prinzip, Versuch und Irrtum funktionert es so:
Dim zelle_Dauer As Range
Dim bereich_Dauer, colTmp_Dauer As New Collection
Set bereich_Dauer = [DAUER]
On Error Resume Next
For Each zelle_Dauer In bereich_Dauer
Err.Clear
colTmp_Dauer.Add zelle_Dauer.Text, zelle_Dauer.Text
If Err = 0 And zelle_Dauer "" Then cb_Dauer.AddItem zelle_Dauer.Text
Next
On Error GoTo 0
Danke für den "Denkanstoss"
Gruß Gegga
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige