Guten Tag zusammen,

mal wieder ich, mal wieder am verzweifeln. Mein Code, mein Problem ist unterm Quelltext. 
 

 Set Gruppennummer = .Columns(5).Find(Range("B2").Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not Gruppennummer Is Nothing Then
            firstAddress = Gruppennummer.Address
            Do
            
                If IsNumeric(.Cells(Gruppennummer.Row, "A")) Then
                    kontostand = .Cells(Gruppennummer.Row, "N").Value
                    finanzpartnername = .Cells(Gruppennummer.Row, "J").Value
                    betriebsnummer = .Cells(Gruppennummer.Row, "A").Value
                    Betriebsname = .Cells(Gruppennummer.Row, "B").Value
                                                         
                 'Suchkriterium innerhalb des Auswertungsblatts festlegen
                                                         
                  ' Zeile = Range("E3:EE3").Find(What:=finanzpartnername, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
                
                  Set Rng = ActiveSheet.Range("E3:EEE3").Find(finanzpartnername)
                  If Rng Is Nothing Then
                  MsgBox "Wert nicht gefunden!"
                  Else
                  finanzpartnerinauswertungsblatt = finanzpartnername
                   End If

                
                 'Wenn der gefundene finanzpartnername gleich dem Finanzpartnernamen des Auswertungsblatts ist
                    If Cells(3, finanzpartnerspalte).Value = finanzpartnername Then
                    'zwischenspeicherfinanzpartnername = Cells(3, finanzpartnerspalte).Value
                                        
                    'Soll in die Spalte des Finanzpartners eingetragen werden
                     Cells(5, kontostanddesfinanzpartners).Value = kontostand
                                    
                        Else
                        
                     
                     End If
                     
                End If
                 
                 Set Gruppennummer = .Columns(5).FindNext(Gruppennummer)
                nächstfreieZelle = nächstfreieZelle + 1
                
            Loop While Not Gruppennummer Is Nothing And Gruppennummer.Address <> firstAddress

Explizit geht es darum dass ich aus einer anderen Tabelle den Namen eines Finanzpartners suche. Dann soll geschaut werden, ob der Name dieses Finanzpartners in meiner aktuell aktiven Tabelle vorhanden ist.  Wenn ja soll der Wert in eine bestimmte Zelle geschrieben werden. 

Das Problem: Ganz unten wird die Gruppennummer dann nicht mehr gesetzt.....aufgrund dessen erhalte ich die im Betreff genannte Fehlermeldung....  
Die letzte SET-Anweisung wird zwar ausgeführt aber die Gruppennummer ist dann nothing wie kann das sein? Es muss in einem Zusammenhang mit der ersten Set Rng Anweisung stehen, ich kann mir aber überhaupt nicht erklären wieso das so ist... weiß zufällig jemand Rat oder hatte bereits in der Vergangenheit ähnliche Probleme? Wäre dankbar für jede Hilfestellung