Zeilennummer in Listbox 1 Spalte + 2 Spalte Werte
11.03.2019 15:45:39
feurio
Ich hab jetzt schon einige Suchen unternommen, aber ich komme zu keiner Lösung.
Folgenden Code habe ich zusammengeschustert:
Dim lngLastUseCell2 As Long
Dim r2 As Range
lngLastUseCell2 = Range("V:V").Cells.SpecialCells(xlCellTypeLastCell).Row
With Me.ListBox2
For Each r2 In Range("V2:V" & lngLastUseCell).SpecialCells(xlCellTypeVisible)
.AddItem r2.Value
Next r2
End With
Damit lasse ich mir eine Listbox mit allen Werten aus der Spalte "V" der Tabelle füllen, ebenfalls bei Filterung der Tabelle.
Soweit klappt das alles gut.
Jetzt möchte ich aber gern die Listbox in 2 Spalten teilen und mir in der ersten Spalte die entsprechenden Zeilennummern aus der Tabelle für die jeweiligen eingetragenen Werte der Spalte "V" anzeigen lassen.
Ich würde mich freuen wenn mir jemanden helfen könnte.
Vielen Dank schon mal für das Lesen.