Hallo,

ich erhielt von Andre folgenden Tip: hallo dari,
setzte die entsprechende variable am anfang auf 4 und tue sie statt addieren subtrahieren, um folgendes Makro:

Set wks = Worksheets("Tabelle1")
lgRow = 9
lgZiel = 1
iCount = 1
Do
If Right(Cells(lgRow + 1, 1), 1) < Right(Cells(lgRow, 1), 1) Then
wks.Cells(lgZiel, 1) = "Einzelsubstrat " & lgZiel
wks.Cells(lgZiel, 2) = iCount
lgZiel = lgZiel + 1
iCount = 0
End If

iCount = iCount + 1
lgRow = lgRow + 1

Loop Until IsEmpty(Cells(lgRow, 1))

so umzubauen, dass nicht wie bisher von _1 bis _4 gezählt wird, sondern von _4 bis _1. Nun ist mir nicht genau klar, welche entsprechende Variable damit gemeint ist. Vor allem: bei welchen Werte muss ich subtrahieren. Kann mir jemand da einen genaueren Hinweis geben.

Gruß
Dari