Office: (Office 2019) Multiselect in List Box

Warum · 6. Dezember 2020

Hallo zusammen,

ich habe eine ListBox, Multiselect und möchte nur die ersten 2 Einträge auslesen, auch wenn mehrere Einträge ausgewählt sind.

Irgendwie klappt das nicht.

Meine Vorlage habe ich mal hochgeladen, die Leerzeile im Bereich Auswertung ist gewollt.

Gruß
hape

:)

GraFri · 8. Dezember 2020

Hallo

Eine mögliche Lösung

Code:

Option Explicit

Private Sub CBFilter_Click()

Dim index As Long, j As Long, Zähler As Long
j = 2

For index = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(index) = True Then
' 1. Spalte
Cells(j, 9).Value = ListBox1.List(index, 0)
' 2. Spalte
Cells(j, 10).Value = ListBox1.List(index, 1)
Zähler = Zähler + 1: If Zähler = 2 Then Exit Sub
j = j + 2
End If
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg, GraFri

Der Steuerfuzzi · 8. Dezember 2020

Hallo,

eine Listbox hat die Eigenschaft .Selected(Item), die true ist, wenn ein Element ausgewählt ist. Du musst nur eine Schleife über alle Einträge der Listbox machen und die Eigenschaft abfragen, z. B. so:
Code:

Dim i As Long, j As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
j = j + 1
Debug.Print j & ". Auswahl: " & ListBox1.List(i)
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2019) Multiselect in List Box

Multiselect in List Box

Multiselect in List Box

Multiselect in List Box - Similar Threads - Multiselect List Box

Pivot Gruppe basierend auf Liste

zu jedem Eintrag einer drop & down Liste ein bestimmter Betrag in der Nebenspalte

Benutzerdefiniertes Sortieren nach eigener Liste funktioniert nicht

Mehrere Dateien auswählen (Multiselect) und bearbeiten

MultiSelect-Eigenschaft (Mehrfachauswahl)

Excel 2007 - Application.GetOpenFilename - und - MultiSelect - 3 Fragen

Listbox und Multiselect