nächsten Wert eines gefilterten Bereichs

Sub EbeneEinsUntenAnzeigen()
Dim wksAkt As Worksheet
Dim rngFilter As Range
Dim rngFilter2 As Range
Dim Zelle As Range
Dim intZeile As Integer
Set wksAkt = Worksheets("Daten")
wksAkt.ListObjects(1).Range.AutoFilter field:=wksAkt.ListObjects(1).ListColumns("Ebene"). _
Index, Criteria1:=" "V" Then
If wksAkt.Cells(intZeile, 5).Value = 1 Then
' Hier kommt das Problem!!
If Zelle.Offset(1, 0).Value = 0 Then
wksAkt.Cells(intZeile, 11).Value = 0
Else
wksAkt.Cells(intZeile, 11).Value = 1
End If
End If
End If
Next Zelle
End Sub