ich hab folgenen Code imgebrauch
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die berschriften
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'N_chste Zeile bearbeiten
Loop
er soll mir aber nur angezeigte zeilen zeigen
ich filter vorher mit
ActiveSheet.Range("$B$1:$T$5").AutoFilter Field:=13, Criteria1:="" zeilen Filter
aber irgendwie zeigt er mir alle Zeilen