Zählt nicht richtig !
06.08.2003 10:47:10
Dari
mein Zählmakro hat irgendwo einen Fehler. Es zählt in Spalte A die Endungen _1 bis _4 und fasst sie zu einer Einheit "Einzelsubstrat" zusammen. Nun habe ich festgestellt, dass bei der ersten Einheit richtig gezählt wird, ab der zweiten Einheit verzählt sich das Makro immer um eins (zuviel). Also:
Einzelsubstrat 1: 73
Einzelsubstrat 2: 74
Einzelsubstrat 3: 74
Es sind (handgezählt) aber immer 73. Weiß jemand, woran der Fehler liegen könnte ?
----------------
Sub zaehlen()
Dim lgRow As Long
Dim lgZiel As Long
Dim wks As Worksheet
Dim iCount As Integer
Set wks = Worksheets("Tabelle2")
lgRow = 1
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 = 1
End If
iCount = iCount + 1
lgRow = lgRow + 1
Loop Until IsEmpty(Cells(lgRow, 1))
End Sub
-----------
Gruß
Dari