Wenn Du die ersten 10Zeilen haben möchtest, das erste Area aber bereits 12Zeilen beherbergt, ordne Ich das als Glücksfall ein.
Du brauchst 2 Schleifen.
Aüßere Schleife, schleift die Areas durch.
Inner Schleife, schleift durch Areas.
Beispiel:
Dim rng As Excel.Range
Dim vArea As Variant
Dim i As Long
Set rng = Range("A1").CurrentRegion
For Each vArea In Intersect(rng, rng.SpecialCells(xlCellTypeVisible), rng.Offset(1, 0)).Areas
For i = 1 To vArea.Rows.Count
'*** Hier sind Deine Zeilennummern
MsgBox vArea.Rows(i).Row
Next i
Next vArea
|