Flytte data fra kolonne til række

Glemte at sige at listen er på 15073 linier hvis det har nogen betydning...

http://www.eksperten.dk/spm/836766

Hej mugs

Det re sådan set "rigtig nok" - men når jeg markerer alle 15073 rækker i kolonne B og prøver at sætte dem ind i et nyt ark får jeg en fejl.
Prøvede så med kun at markere 21 rækker, dette gik også fint med at indsætte men i 21 kolonner - målet var jo 3 kolonner. B navn, C Adresse, D postnr.
Gør jeg noget forkert?

Et andet problem som jeg kan se opstå er at der i den oprindelige liste er en kolonne C med data i samme række som navnet som skal bruges.
Jeg troede "bare lige" at man kunne indsætte 2 kolonner mellerm B og C og flytte værdierne som beskrevet ovenfor.

Jeg er dig svar skyldig. Jeg er ikke den store Excel-haj. Men du kan lægge et svar her og selv acceptere det. Opret derefter et nyt spørgsmål relateret til dit problem.

Du kan ikke transponere flere rækker end der er kolonner, og transponerer du noget af en kolonne, bliver der lige så mange celler i rækken, som der var i kolonnen. Det nemmeste er nok at lave en makro, der flytter det hele til et nyt ark og stiller det rigtigt op.

prøv at teste, den skriver i C+D+E kolonnen i samme ark.

Hav siden aktiv, inden du kører makroen

Public Sub Flyt()
    Dim I As Long, RW As Long, X As Long
    RW = Range("B65536").End(xlUp).Row
    X = 3
    For I = 3 To RW Step 3
        Cells(X, "C") = Cells(I, "B")
        Cells(X, "D") = Cells(I + 1, "B")
        Cells(X, "E") = Cells(I + 2, "B")
        X = X + 1
    Next
End Sub

Hej kabbak

Mange tak for svaret, jeg ændrede makroen til nedenstående og så passende den lige ind i mit ark.
Igen mange tak, smid et svar for point.


Public Sub Flyt()
    Dim I As Long, RW As Long, X As Long
    RW = Range("B65536").End(xlUp).Row
    X = 3
    For I = 3 To RW Step 3
        Cells(X, "C") = Cells(I + 1, "B")
        Cells(X, "D") = Cells(I + 2, "B")
        'Cells(X, "E") = Cells(I + 2, "B")
        X = X + 3
    Next
End Sub

et svar ;-))