Office: VBA Schrittweite in Schleife

Hallo,

ich habe eine Schleife die von 1 bis 200 zählt. Im inneren der Schleife soll bei jedem Schritt eine Variable hoch gezählt werden und zusätzlich in zwanziger Schritten eine Variable hochgezählt werden.

Ich komme gerade nicht drauf wie ich sage das nur alle 20 hochgezählt werden soll.

Hier mein Beispiel:

Sub test()

Dim i As Integer
Dim x As Integer, SW As Integer, Gesamt As Integer

Gesamt = 200
SW = Gesamt / 10 'Schrittweite

x = 1 'Spaltenzähler

With Worksheets("a")
​

For i = 1 To Gesamt
​

.Cells(1, 1) = i
​

If i = ???? Then 'hier soll alle 20 Schritte ????​

.Cells(2, x).Interior.Color = 255
x = x + 1​

End If​

Next i​

End With​

End Sub

Danke

Ich benutze Excel 2010

 

Hallo,

meinst du Folgendes:

If i mod 20=0 Then ...

immer dann, wenn die Variable i ein Vielfaches von 20 ist (also bei i=20, 40, 60, ..., 180, 200), wird der THEN-Zweig ausgeführt.

 

Danke!!

Genau, "Mod" war die Lösung!

Super!