Hallo,

wie kann ich durch einen "For" - Befehl eine Zelle nach unten gehen?

Ich hoffe es wird anhand des Codes ersichtlich was ich meine.

Danke im Voraus und Grüße

Code:

dim n as integer

n=0

For i = 1 To 20

If Not IsEmpty(Tabelle1.Range("ai")) And Not IsEmpty(Tabelle1.Range("bi")) Then
n = n + 1
Else: n = n
End If
Next i