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
Set Rng = ActiveSheet.Range("E3:EEE3").Find(finanzpartnername)
If Rng Is Nothing Then
MsgBox "Wert nicht gefunden!"
Else
finanzpartnerinauswertungsblatt = finanzpartnername
End If
If Cells(3, finanzpartnerspalte).Value = finanzpartnername Then
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