Clever-Excel-Forum

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!

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

Hi Uwe ... DANKEEEE!

Läuft!

LuckyJoe

Kuwer

LuckyJoe