[VBA][Excel]

[Verwijderd]

Ik probeer een macro te maken, het lukt me alleen niet om de loop goed te krijgen.
De bedoeling is om een kolom data in rijen te zetten:

A
B
C
D
A
B
C
D

Moet worden:

ABCD
ABCD

Dit is wat ik heb:

code:

    Range("B2").Select
    Selection.Cut
    Range("A3").Select
    ActiveSheet.Paste
    Range("B4").Select
    Selection.Cut
    Range("C3").Select
    ActiveSheet.Paste
    Range("B1").Select
    Selection.Cut
    Range("D3").Select
    ActiveSheet.Paste

De standaard truc Range("B" &i).Select etc. werkt nu natuurlijk niet. Hoe maak ik zo'n loop?

[ Voor 9% gewijzigd door Verwijderd op 11-03-2003 11:39 . Reden: D'oh! Topictitel vergeten af te maken |-( ]

[F_J_K]

Waarom zou het met een teller i niet goed gaan?

code:

Sub woei()
For i = 0 To 1
    For j = 1 To 4
        Cells(i + 1, j + 1) = Cells((4 * i) + j, 1)
    Next j
Next i
End Sub

Of het klopt weet ik niet zeker, heb het niet geprobeerd. Maar dit lijkt me goed moeten gaan