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
Anzeige
Inhaltsverzeichnis

Markierung in Listbox

Forumthread: Markierung in Listbox

Markierung in Listbox
20.12.2016 13: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 13: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 13: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 13: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 16:01:51
Rainer
Hallo Mullit,
vielen Dank, funktioniert.
Gruß Rainer
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum