Zitat Zitat von DFYX Beitrag anzeigen
Eigentlich sollte VBA for i = 1 to 10 step 2 oder sowas kennen.
Ok mal abgesehen davon, dass ich diese step Funktion leider nie kennenlernen durfte, funktioniert es so

Sub quadrat()

Dim i As Integer
Dim j As Integer

For i = 2 To 17 Step 2
For j = 2 To 9 Step 2
Cells(i, j).Value = (i * j) / 2
Next j
Next i
End Sub

Danke euch beiden für die Hilfe!