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!