Transponeren van meerdere regels in 1 kolom met behulp van VBA

Status
Niet open voor verdere reacties.
M

miso1995

Gebruiker
Lid geworden
25 mei 2018
Berichten
87
Beste,

Voor een programma welke met importeren van boven naar beneden leest (veld voor veld) zou ik graag een macro willen schrijven die voor een variabel aantal regels, de gegevens in de cellen A tm R, kunnen transponeren in kolom T.

In het aangehechte voorbeeld bestand, kun je zowel de input als de output (kolom T) zien.

Maar het aantal regels dat onder elkaar getransponeerd moet worden is variabel.

Ik zou verwachten een "For Each" constructie, maar ik kom er niet uit.

Wie o wie?
Hartstikke bedankt alvast!

Groetjes,

Michel
 

Bijlagen

  • Voorbeeld voor transponeren.xlsx
    9,8 KB · Weergaven: 59
Goedemorgen Michel,

Probeer deze eens:

Code: 
Sub SjonR()
arr = Cells.CurrentRegion
ReDim arr2(UBound(arr) * UBound(arr, 2), 1)

For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        arr2(n, 0) = arr(i, j)
        n = n + 1
    Next
Next

Cells(1, [COLOR="#FF0000"]21[/COLOR]).Resize(UBound(arr) * UBound(arr, 2)) = arr2

End Sub

Voor het vergelijken even kolom 21 ( rode tekst /Kolom U) gebruikt. Deze naar wens aanpassen.
 
Laatst bewerkt:
Geweldig, het werkt perfect en het werkt ook snel. Dankjewel Sjon!!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan