Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
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
Inhaltsverzeichnis

ComboBox ohne leere Zelle

ComboBox ohne leere Zelle
17.12.2016 14:13:05
Rainer
Hallo,
ich habe mir den Code von Bernd wie folgt geändert:
Set dic = CreateObject("Scripting.Dictionary")
ar = Sheets("Produkt").Range("J9").CurrentRegion.Resize(, 10)
For lngZeile = 9 To UBound(ar)
dic(ar(lngZeile, 10)) = 1
Next
Me.ComboBox1.List = dic.Keys
Funktioniert einwandfrei, bis auf die Tatsache, dass auch die Zellen ohne Inhalt mit reinkommen, so dass meine ListBox den ersten Eintrag leer hat.
Kann der Code abgeändert werden, dass die leere Zelle unberücksichtigt bleibt?
Gruß Rainer

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox ohne leere Zelle
17.12.2016 14:24:20
Gerd
Hallo Rainer,
es ist immer besser, die ganze Prozedur zu zeigen.
Lasse die Leeren halt draußen.

If ar(lngZeile, 10)  "" Then dic(ar(lngZeile, 10)) = 1

Gruß Gerd
AW: ComboBox ohne leere Zelle
17.12.2016 14:41:36
Rainer
Hallo Gerd,
danke, passt.
Gruß Rainer
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige