Do
For zaehler = 2 To 10
Set Gruppennummer_Analyse = .Columns(5).Find(zaehler, LookIn:=xlValues, lookAt:=xlWhole)
If IsNumeric(.Cells(Gruppennummer_Analyse.Row, "A")) Then
gruppennummer = .Cells(Gruppennummer_Analyse.Row, "E").Value
gruppenname = .Cells(Gruppennummer_Analyse.Row, "F").Value
If WorksheetFunction.CountIf(Range("A:A"), [gruppennummer]) Then
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Else
Weiterer Quelltext hier .... nicht relevant aktuell
End If
Set Gruppennummer_Analyse = .Columns(5).FindNext(Gruppennummer_Analyse)
End If
Next
Loop While Not Gruppennummer_Analyse Is Nothing And Gruppennummer_Analyse.Address <> firstAddress