Listbox additem offset funktioniert nicht
09.09.2015 10:31:56
Sven
ich versuche in eine Listbox Daten aus gefilterten Zeilen zu übernehmen.
Die erste Spalte funktioniert, jedoch bekomme ich den Befehl nicht hin weitere bestimmte Daten aus der Zeile in Spalte 2 und 3 zu übernehmen.
So habe ich es probiert, aber vba sagt da ist ein Fehler.
Userform1.ListBox1.Clear
Set Bereich = worksheets("tabelle2").Range("A4:BL1000").Resize(Worksheets("tabelle2"). _
autofilter.Range.Rows.Count - 1, 1)
For Each rngCell In Bereich
If rngCell.EntireRow.Hidden = False Then Userfrom1.ListBox1.AddItem rngCell.Value
If rngCell.EntireRow.Hidden = False Then Userfrom1.ListBox1.List(.ListCount - 1, 2) = _
rngCell.Offset(0, 1).Value
Next
If rngCell.EntireRow.Hidden = False Then SSD_Suchen.ListBox1.List(.ListCount - 1, 2) = rngCell.Offset(0, 1).Value
Danke
Gruß
Sven