mit dem folgenden Code werden mit der Anzahl der Schleifen vom Status 40 bis 60 hochgezählt. Jetzt würde ich das Ganze noch erweitern wollen. Es sollen auch die darauffolgenden Status 70 -110 der dazugehörigen Schleife zugeordnet werden. Im Anhang habe ich eine Beispieldatei erstellt. Bitte um Unterstützung.
Wenn der Status 80 überschritten wurde, kann es regulär zu keinen erneuten Schleifen kommen. Unterhalb dem Status 80 können sich die Schleifen wiederholen.
https://www.herber.de/bbs/user/141429.xlsx
Private Sub CommandButton1_Click()
Dim z, ID, i
i = 1
Sortieren
Range("O2:O1000000").ClearContents
For z = 2 To 1000000
ID = Cells(z, 1)
If ID "" Then
If Cells(z + 1, 1) = ID And Cells(z + 2, 1) = ID Then
If Cells(z, 5) = 40 And Cells(z + 1, 5) = 50 And Cells(z + 2, 5) = 60 Then
'Stop
Cells(z, 15) = "" & i
Cells(z + 1, 15) = "" & i
Cells(z + 2, 15) = "" & i
i = i + 1
End If
Else
i = 1
End If
End If
Next z
End Sub
Gruß Tom