ich stehe vor folgendem Problem:
Ich würde gerne den Wert aus einem gefilterten Bereich, den ich mit einer Schleife durchlaufe, für den NÄCHSTEN Schleifen-Wert auslesen, während ich noch im aktuelle Schleifen-Element bin. Zur Verdeutlichung hier ein Beispielcode:
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
Ich befinde mich ja schon in einer For ... Next Schleife. Wie kann ich in der Schleife einen Wert für das nächste Element auslesen? Zelle.Offset (1, 0) funktioniert natürlich nicht, aber so etwas Ähnliches suche ich.Vielen Dank für eure Hilfe
Michael