Macro met relatieve celverwijzing moet X-aantal keer worden uitgevoerd totdat hij in de cel in kolom A het woord </vacations> vindt.

- Kan je een teller in een macro gebruiken?

- De betreffende macro moet binnen het werkblad X-keer (bv 792 keer) worden uitgevoerd. Dit aantal kan variëren op basis van het aantal beschreven rijen in kolom A.

In het huidige werkblad zijn 17.424 rijen.
De macro moet telkens 22 rijen omzetten in kolommen (transponeren).
Bij het huidige aantal rijen moet de macro dus 17.424 : 22= 792 keer worden uitgevoerd. Maar de macro moet ook werken bij bv. 17.468 rijen (en dus 794 keer worden uitgevoerd).

Wat wil ik uiteindelijk bekomen?

- Eerst zou de macro moeten bepalen op welke rij het woord </vacations> staat. (bv. met CTRL+END in kolom A staat de pointer op de laatste beschreven rij. Op basis van de rijteller zou hij moeten berekenen hoeveel keer hij moet worden uitgevoerd.)

- Dat getal moet worden gedeeld door 22 (17.424 : 22= 792)

- De macro zou zoveel keer moeten worden uitgevoerd als de uitkomst. (in mijn voorbeeld dus 792 keer)

- De macro moet echter ook werken indien er bv. 34.848 rijen zijn (en dus automatisch 1.584 keer worden uitgevoerd)

- Het transponeren van rijen en kolommen vormt geen probleem; ik wil enkel de macro zelf laten bepalen hoeveel keer hij moet worden uitgevoerd.


Wie kent een oplossing via Oplossing.be?

De macro ziet er (voorlopig) zo uit:

    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("BRON").Select
    ActiveCell.Offset(22, 0).Range("A1:A20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("RESULTAAT").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
       SkipBlanks:=False, Transpose:=True