For zaehler = 2 To 10
Set Gruppennummer_Analyse = .Columns(5).Find(zaehler, LookIn:=xlValues, lookAt:=xlWhole)
If Not Gruppennummer_Analyse Is Nothing Then
firstAddress = Gruppennummer_Analyse
Do
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
End If
Set Gruppennummer_Analyse = .Columns(5).FindNext(Gruppennummer_Analyse)
Loop While Not Gruppennummer_Analyse Is Nothing And Gruppennummer_Analyse.Address <> firstAddress
End If
Next