wie kann ich bei nachstehendem Code erreichen, dass die "Schleife verlängert" wird?
Es stehen in der Spalte E, Zeile 27 bis 39 verschiedene Zahlen.
Derzeit werden Zahlen aus E27 bis E38 in die Spalte H ab Zeile 11 abwärts jeweils 12-mal untereinander eingetragen.
Nun das Problem: Ab der Zeile 154 (Spalte H) soll dann die Zahl aus E39 120-mal untereinander eingetragen werden. Leider weiß ich nicht wie ich die zweite Anweisung/Schleife integrieren kann:
Sub Zahlen_eintragen_alt()
Dim i As Integer
Dim intOut As Integer
Dim intFaktor As Integer
Dim intCount As Integer
For intOut = 27 To 38 '-----------' nimmt Zahl aus E27 bis E38 ein
i = (intFaktor + 1) + 10
For intCount = i To i + 12 '-----------' trägt Zahl jeweils 12-mal ein
Cells(intCount, 8) = Sheets("E").Cells(intOut, 5)
Next intCount
intFaktor = intFaktor + 12
Next
For intOut = 39 To 39 '-----------' wie kann Zahl aus E39 anschließend 120-mal eingetragen werden?
i = (intFaktor + 1) + 154
For intCount = i To i + 120
Cells(intCount, 8) = Sheets("E").Cells(intOut, 5)
Next intCount
intFaktor = intFaktor + 120
Next
End Sub
Wer kann helfen?
Besten Dank im Voraus.
mfg
Erich