Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierung in Listbox

Forumthread: Markierung in Listbox

Markierung in Listbox
20.12.2016 12:16:29
Rainer
Hallo,
lade mir in eine Listbox Werte einer Tabelle um 15 Werte für eine weitere Tabelle auszuwählen.
Zur Vereinfachung habe ich einen Button, der mir die ersten 15 Werte schon mal markiert. 

For intRow = 0 To 14
Me.ListBox3.Selected(intRow) = True
Next intRow

Wie fange ich aber den Fehler ab, wenn ich weniger als 15 Werte habe?
Gruß Rainer
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Markierung in Listbox
20.12.2016 12:29:13
Mullit
Hallo,
so: 
For intRow = 0 To Me.ListBox3.ListCount - 1
Me.ListBox3.Selected(intRow) = True
Next intRow

Gruß, Mullit
AW: Markierung in Listbox
20.12.2016 12:34:19
Rainer
Hallo Mullit,
danke für Deine Antwort.
Mit absenden des Threads kam ich dann selbst drauf. Allerdings markiert Dein Code ja über die Anzahl von 15 Werten hinaus.
Habe es nun so gelöst: 

For intRow = 0 To 14
Me.ListBox3.Selected(intRow) = True
If Me.ListBox3.ListCount - 1 = intRow Then Exit Sub
Next intRow

Da nach der Markierung kein weiterer Codetext steht kann ich diesen einfach abbrechen.
Gruß Rainer
Anzeige
AW: Markierung in Listbox
20.12.2016 12:57:28
Mullit
Hallo,
ah alles klar, würd ich dann eher mit ner Do-Loop Schleife machen, dann brauchst Du nichts mit nem Sprungbefehl abwürgen: 
With Me.ListBox3
Do
intRow = intRow + 1
.Selected(intRow - 1) = True
Loop While intRow

Gruß, Mullit
AW: Markierung in Listbox
20.12.2016 15:01:51
Rainer
Hallo Mullit,
vielen Dank, funktioniert.
Gruß Rainer
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige