Problem beim Zählen ....
29.08.2003 13:58:52
Dari
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