Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige