Problem mit Count-Funktion !
15.09.2003 16:14:36
Dari !
mache immer noch an einem alten Problem herum und komme zu keiner Lösung. Mein Makro:
Set wks = Worksheets("Tabelle1")
lgRow = 9
lgZiel = 4
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 in Spalte A die Endungen _1 bis _4 und fasst sie zu einer Einheit zusammen (Einzelsubstrat). Für ein anderes Problem, bräuchte ich das umgekehrte, also _4 bis _1 zu einer Einheit zusammengefasst.
Blicke ehrlich gesagt überhaupt nicht durch, was ich da verändern soll, das obige Makro hat mir jemand freundlicherweise zugeschickt, stehe da, wie der Ochs vorm Berg.
Gruß
Dari