Do Loop wird verlassen obwohl Bed. n. erfüllt
Christian
ich habe folgenden code:
Option Explicit
Sub testLoop()
Dim rngFindBereich As Range
Dim rngFind As Range
Dim firstAdress
Dim Groesse As String
Dim Bestand As String
Dim Sparte As String
Groesse = "BA0005010101"
Bestand = "Endbestand GJ"
Sparte = "Wert Leben"
Set rngFindBereich = Worksheets("Umsetzungstabelle").Range("G2:G3134")
With rngFindBereich
Set rngFind = .Find(Groesse, LookIn:=xlValues)
If Not rngFind Is Nothing Then
firstAdress = rngFind.Address
Do
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address firstAdress And rngFind.Offset( _
0, 1) Bestand And rngFind.Offset(0, 2) Sparte
MsgBox rngFind
MsgBox rngFind.Offset(0, 1).Value
MsgBox rngFind.Offset(0, 2).Value
End If
End With
End Sub
Die Bedingung rngFind.Offset(0, 1) Bestand ist nicht erfüllt und trotzdem springt er aus der Schleife.
Es gibt eine Zeile im Tabellenblatt die alle Bedingungen erfüllt.
Hab heute in der Arbeit versucht rauszufinden warum und bin dann frustriert nach Hause gegangen und komme jetzt auch nicht weiter.
Weiss jemand was da los ist?
Viele Grüße und vielen Dank!
Chris