Hi
ohne den Zusammenhang und ohne zu wissen was du überhaupt erreichen willst
du musst nach der .Find-Zeile auch schreiben was geschehen soll wenn es gefunden wird
und danach sollte erst die Do-Schleife kommen
das könnte dann "UNGETESTET" so aussehen
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
'Weiterer Quelltext hier .... nicht relevant aktuell
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
MfG Tom
|