code anpassen
08.01.2013 18:24:18
Udo
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 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