folgenden Code hat Mäxl mir geschrieben
Sub til()
Dim IntZahl As Integer, IntRow As Integer, IntCol As Integer
IntZahl = 101
IntRow = 3
For IntCol = 1 To [zz1].Column Step 3
Do
Cells(IntRow, IntCol) = IntZahl
IntZahl = IntZahl + 1
IntRow = IntRow + 27
Loop While IntRow
der code trägt die Ziffer 101 in Zelle A3 ein und addiert +1 und trägt in a30 die Ziffer 102 ein .. soweit alles korrekt. Ich hab nun das gleiche versucht, nicht mehr senkrecht zu zählen sondern an Zelle b1 die Ziffer 1 einzutragen, dann in E1 die Ziffer 2 usf. Dachte , dass ich IntRow dann rausnehmen muss, aber irgendwie scheitere ich kläglich, da ich Null Ahnung hab, und den Code nicht nachvollziehen kann.
Wie kann ich den code ändern, dass der mir fortlaufen von B1,E1,h1 immer einen addiert ? Ich bekomme es nicht hin.
Danke sehr.
LG Udo
https://www.herber.de/bbs/user/83294.xlsm