Zählerüberlauf
26.05.2008 09:00:00
Koop
ich habe da eine Micke in meinem Code, die mir nicht einsichtig ist.
Dim cell As Range
Dim cellrow As Integer
Dim path As String
Dim i As Integer ' einfacher Zähler
ThisWorkbook.Sheets(2).Range("A7:A500").Clear
i = 1
For Each cell In ActiveWorkbook.Sheets(counter).UsedRange
path = cell.Address
cellrow = Range(path).Row
If Intersect(Range(path), Range("AF12:AF500")) Is Nothing Then
Else
' nur die Zeilen 12,15,18,...
If cellrow Mod 3 = 0 Then
Range("AE13").Value = 7
Else
End If
End If
i = i + 1
Next cell
Problem ist, dass der Zähler überläuft, obwohl der genutzte Bereich nur 125 Zeilen umschließt.
Hat einer von euch die Zeit und das Wissen mir zu helfen?
Nach zwei Tagen bin ich glaube codeblind geworden.
Schon mal vielen Dank! Koop