Listbox ausgewälte Spalten Anzeigen
09.03.2020 14:32:00
Jörg
ich habe eine kurze Frage zu Listboxen und mit mehreren Spalten. Kann mann auch einzelne Spalten nicht anzeigen. Zu Beispiel müchte ich meine Listbox nur mit Spalte 1 und Spalte 18 befüllen lassen.
Vielleicht kann mir einen helfen.
Private Sub cb_wohnbereich_change()
Dim Zelle As Range
With mwksUebersicht
.Activate
If .FilterMode = True Then
.ShowAllData
End If
.Range("a9:b114").AutoFilter _
Field:=2, _
Criteria1:="=" & cb_wohnbereich.Text, _
Operator:=xlOr
'Combobox einlesen
ComboBox1.Clear
For Each Zelle In .Range("a11:a114").SpecialCells(xlCellTypeVisible)
ComboBox1.AddItem Zelle.Value
Next
'listbox einlesen
ListBox1.Clear
ListBox1.ColumnCount =
For Each Zelle In .Range("a11:a114").SpecialCells(xlCellTypeVisible)
ListBox1.AddItem Zelle.Value
Next
End With
End Sub