Schleife durch gefilterterten Bereich, 1. Spalte aber ohne Überschrift

[LuckyJoe]

Hallo zusammen,

ich habe eine Tabelle mit mehreren Zeilen und Spalten gefiltert (Autofilter in Zeile 1). Nun möchte ich mit vba eine Schleife programmieren, die alle (sichtbaren/gefilterten) Zeilen durchläuft, allerdings nur in der 1. Spalte, aber ohne die Überschriftenzeile. Bisher bin ich soweit:

Code:

Dim rc As Range
Dim MyBereich As Range

' Gefilterter Bereich nur 1. Spalte
Set MyBereich = ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible)

MyBereich.Select        ' nur zum Testen
For Each rc In MyBereich
    Debug.Print rc.Value
Next

Wie bekomme ich den Bereich "MyBereich" verkleinert, so dass die Überschriftenzeile nicht mit zu "MyBereich" gehört. Ich habe mit ".Resize(-1)" herumexperimentiert, bekomme das aber nicht hin.
Kann mir jemand helfen, wo ich auf dem Schlauch stehe?

Vielen Dank im Voraus!

[Kuwer]

Hallo Joe,

z.B. so:

Sub aaa()

 Dim rc As Range

 Dim MyBereich As Range

 

 ' Gefilterter Bereich nur 1. Spalte

 With ActiveSheet.AutoFilter.Range

   Set MyBereich = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)

 End With

 Debug.Print MyBereich.Address         ' nur zum Testen

 For Each rc In MyBereich

     Debug.Print rc.Value

 Next

End Sub

Gruß Uwe

[LuckyJoe]

Hi Uwe ... DANKEEEE!

Läuft!