Guten Abend,
ich brauche ein Makro das mit folgende Zahlenfolge ausgibt:
Ich habe 5 zellen in die jeweils eine zahl per Makro geschrieben wird. Zunächst sollen alle Zellen gleich sein. Das klappt noch so weit. Beim Klick springt es von 3 auf 4 und beim nächsten auf 5.
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
Dim i As Long
Range("d1").Value = Range("d1").Value + 1
i = Range("d1").Value
Range("C10").FormulaR1C1 = Range("a" & i).Value
Range("C11").FormulaR1C1 = Range("a" & i).Value ....
Als nächstes soll es aber wie folgt weiter gehen.
2 2 2 2 3 3
1 2 2 2 2 3
1 1 2 2 2 2
1 1 1 2 2 2
1 1 1 1 2 2
und da komme ich einfach nicht weiter.