ungewollte Sprünge in der Nummerierung

[Flotter Feger]

Hallo,

@Ralf:
... ein wenig Arithmetik lösbar ... der war gut. Ich hab es versucht, aber nicht hingekriegt.

Aber wofür gibt es VBA ... :-)

Sub Umstellen()
Dim i As Long, j As Long, k As Long

For i = 40 To 59 Step 2
For j = 1 To 3
k = k + 1
Cells(i, j).Formula = "=B" & k
Cells(i + 1, j).Formula = "=A" & k
Next j
Next i
End Sub