Filter auslesen

Sub AuslesenAF2()
Dim rngAF As Range
Dim rngZ As Range
Dim colAF As New Collection
Dim oColAF As Variant
Dim bolAdd As Boolean
Dim strW As String
If ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode Then
With ActiveSheet.AutoFilter.Range
Set rngAF = .Offset(1, 2).Resize(.Rows.Count - 1, .Columns.Count)
End With
On Error Resume Next
For Each rngZ In rngAF.SpecialCells(xlCellTypeVisible).Rows
'  MsgBox rngAF
For Each oColAF In colAF
If rngZ.Cells(4).Value 

Ich wollte dieses Makro auf meine Tabelle anpassen, läuft soweit aber...
Filter werden in der Zeile 5 gesetzt, die 1.Auswertung steht also in der Zeile 6.
Die Filterspalte ist die Spalte 4, wenn ich jetzt filterung durchführe, wird mir 4x 333 angezeigt,
die Zahl ist i.o. , wenn ich den 2. Wert aussuche z.b. 22001 wird richtig angezeigt.
Vielleicht blickt jemand durch, ich nicht ganz...
mfg Walter MB