code herhalen

[Ad4Jansen]

Heren,

Kan je een code op een simpele manier zeg 3x laten herhalen.

voorbeeld
Application.Run "aanpassinggegevens"

Nu doe ik het

Application.Run "aanpassinggegevens"
Application.Run "aanpassinggegevens"
Application.Run "aanpassinggegevens"

Maar dat moet toch netter kunnen

Alvast bedankt voor de snelle antwoorden

Ad

 

[ExcelAmateur]

Ad4Jansen,

Ik denk met een lus, ben hier geen expert in hoor.

For i = 1 to 3
  Application.Run "aanpassinggegevens"
Next

 

[Mark xl]

Probeer je projecten goed uit te denken alvorens ze te bouwen.
Als je iets meerdere keren wilt laten uitvoeren, bedenk dan van tevoren hoe je dat het beste kan doen.

Wat ExcelAmateur voorstelt, gewoon een loop om je opdracht bijvoorbeeld 3 keer te herhalen kan prima. (waarbij je die 3 natuurlijk kan vervangen door een telling van het aantal gewenste herhalingen). Of gebruik en Do...Loop die moet blijven doorgaan zolang een bepaalde conditie waar is.

 

[Ad4Jansen]

bedankt nog een vraag

Bedankt heren dit werkt do...loop gaat me nog iets te ver (eigenlijk de conditie),

maar waar staat de i voor in de code FOR i =

Ad

 

[Mark xl]

in voorbeeldcode wordt i meestal gebruikt als "integer" om door te tellen

je kunt het het beste begrijpen met een voorbeeld
Stap met F8 door je code heen om te volgen wat er gebeurt

Sub TestForNext()
Dim i As Long     'long integer(gebruik altijd long, niet integer in VBA code)

    For i = 1 To 5
        'elke nieuwe "loop" wordt de waarde van i met 1 verhoogd
        MsgBox "de waarde van i is " & i
    Next
    
    'for i = 1  stelt de waarde van i opnieuw in op 1
    'To 5       stelt dat de lus moet blijven lopen tot de teller (i) minimaal 5 is
    'Step 2     bepaalt dat elke nieuwe lus 2 bij de teller (i) moet worden opgeteld
    For i = 1 To 5 Step 2
        'elke nieuwe "loop" wordt de waarde van i met 2 verhoogd
        MsgBox "de waarde van i is " & i
    Next

End Sub

Afhankelijk van wat je wilt bereiken kun je de waarde van i eventueel gebruiken in de code tussen de For...Next statement

 

[Ad4Jansen]

Mark wederom bedankt

Mijn probleem is dat ik in het verleden met lotus macro's geschreven heb en daar had ik een boek van Oetker (Of zo iets) met voorbeelden bij.

Nu met excel is het voor mij trial en error want ik heb nog geen goed boek kunnen vinden.:evil:

Nogmaals bedankt voor deze toelichting met voorbeeld:thumb:

Ad