falsch gezählt?
21.03.2013 11:29:24
Moni
Ich habe mir eine Kontrolltabelle gebaut, in der Nullen und XXX in der 2. Spalte stehen, wobei die XXX ausgeblendet sind (Gruppiert). Jetzt lasse ich über eine Schleife die XXX zählen. In dem Testbereich sollte er auf 15 kommen, spuckt aber nur 1 aus. Wo ist mein Denkfehler?
Sub Zaehlen()
Dim i As Integer, k As Integer
k = 0
For i = 1 To 211
If ActiveSheet.Cells(i, 2).Value = "XXX" Then
k = k + 1
Else
i = i + 1
End If
Next
MsgBox k
End Sub
Gruß