Hallo, kann mir jemand helfen,

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))

zählt von _1 bis _4. Bräuchte aber von _4 bis _1. Weiß jemand, wie ich das drehen muss ???

Gruß
aus Tübingen