Macro loop until

[maartenmars]

Hoi, vraagje,

Ik wil graag het getal 1 in cel A1 veranderen in 2, een macro draaien en dan cel A1 veranderen in 3 en wederom de macro draaien Dit moet ik herhalen tot het getal 81 is wat in B1 staat, want dat moet ook variabel zijn. Weet iemand hier een VBA code voor?

 

[wampier]

Waarom wil je de cel A1 erbij hebben? je kunt toch B1-keer een loop doen?

 

[maartenmars]

Met B1 geef ik alleen het maximum aan. Hij moet gewoon tussen elke macro het cijfer aanpassen in A1 door er 1 bij op te tellen. Geen idee hoe dat moet eigenlijk

 

[wampier]

Maar waarom zou je elke keer met de hand de macro draaien? De code is razend eenvoudig, maar volgens ben je hier iets aan het doen wat veel eenvoudiger kan.

cells(1,1).value = cells(1,1).value + 1

 

[mvw64]

mischien heb je iets aan deze macro

Sub test()
For i = 1 To Range("B1")
[A1].Value = [A1].Value + 1
MsgBox "Jou macro"
Next
Range("A1") = 0
End Sub

 

[wampier]

waarbij je dus net zo goed niets kan doen met A1, want als je klaar bent staat het weer terug in de oude positie. Je hebt dan A1 opgehoogd, je macro vertraagd en helemaal niets bereikt.

 

[mvw64]

Ik denk dat de vraag was met een teller
en anders moet deze regel weg gehaalt worden

Range("A1") = 0