Listbox ausgewälte Spalten Anzeigen

Forumthread: Listbox ausgewälte Spalten Anzeigen

09.03.2020 14:32:00

Jörg

Hallo Werte Gemeinde,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox ausgewälte Spalten Anzeigen

09.03.2020 14:44:53

fcs
AW: Listbox ausgewälte Spalten Anzeigen

09.03.2020 14:49:27

Beverly
In VBA

09.03.2020 15:12:54

snb
In VBA

09.03.2020 22:44:35

snb

AW: Listbox ausgewälte Spalten Anzeigen

09.03.2020 14:44:53

fcs

Hallo Jörg,
sollte wie folgt funktionieren.
LG
Franz

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 = 2
For Each Zelle In .Range("a11:a114").SpecialCells(xlCellTypeVisible)
With ListBox1
.AddItem Zelle.Value
.List(.ListCount - 1, 1) = Zelle.Offset(0, 17).Value
End With
Next
End With
End Sub

AW: Listbox ausgewälte Spalten Anzeigen

09.03.2020 14:49:27

Beverly

Hi Jörg,
z.B. so:

   ListBox1.AddItem Zelle.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Zelle.Offset(0, 17).Value

In VBA

09.03.2020 15:12:54

snb


Private Sub cb_wohnbereich_change()
With mwksUebersicht
If .FilterMode = True Then .ShowAllData
.Range("a9:b114").AutoFilter 2, "=" & cb_wohnbereich.Text
.Range("a9:b114").Offset(1).Copy .Cells(1, 100)
combobox1.List = .Cells(1, 100).CurrentRegion.Value
ListBox1.List = combobox1.List
End With
End Sub

In VBA

09.03.2020 22:44:35

snb


Private Sub cb_wohnbereich_change()
With mwksUebersicht
If .FilterMode = True Then .ShowAllData
.Range("a9:b114").AutoFilter 2, "=" & cb_wohnbereich.Text
.Range("a9:b114").Offset(1).Copy .Cells(1, 100)
combobox1.List = .Cells(1, 100).CurrentRegion.Value
ListBox1.List = combobox1.List
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Listbox ausgewälte Spalten Anzeigen

Forumthread: Listbox ausgewälte Spalten Anzeigen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread