Do Loop wird verlassen obwohl Bed. n. erfüllt

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