Autofilter-Bereich auslesen
26.07.2002 23:07:27
Nobbi
Ich habe bisher folgendes verwendet:
Sichtbarer Bereich:
Bereich = Worksheets("Tabelle").Range("A1:C119").SpecialCells(xlCellTypeVisible)
und zum Zählen der Zeilen:
Worksheets("Tabelle").Range("A1:C119").SpecialCells(xlCellTypeVisible).Rows.Count
Die Zellinhalte habe ich dann mit For-Next-Schleifen und der Zuweisung Variable = Bereich([Zeile],[Spalte]) ausgelesen.
Das funktioniert so lange, bis beim Filtern ein unzusammenhängender Bereich entsteht (also z.B. Zeilen 1,5,6,7,10,100 sind sichtbar). Dann gibt diese Funktion nur noch die Anzahl der Zeilen bis zum ersten "Zeilensprung" zurück. In diesem Beispiel also nur 1 Zeile. Wie kann ich das verhindern?