gibts bei nachstehendem Code eine Möglichkeit, die "wiederholenden For I .." anders darzustellen?
Ziel ist Werte aus B2, C2, D2, E, F2 usw. immer 12x untereinander in die Spalte 9 zu schreiben.
Sub Zinsen_eintragen()
Dim I As Integer
For I = 5 To 16
Cells(I, 9) = Range("B$2")
Next I
For I = 16 To 28
Cells(I, 9) = Range("C$2")
Next I
For I = 29 To 40
Cells(I, 9) = Range("D$2")
Next I
For I = 41 To 52
Cells(I, 9) = Range("E$2")
Next I
For I = 53 To 64
Cells(I, 9) = Range("F$2")
Next I
Range("A1").Select
End Sub
Vielen Dank für einen Tip.
mfg
Erich