kolommen kopiëren naar ander tabblad volgens selectie

[starchaser]

Beste,

Op tabblad "origineel" heb ik een aantal kolommen in willekeurige volgorde.
Ik wil een aantal van deze kolommen kopiëren (in het vb de gele kolommen) naar het tabblad "bewerkt", waar deze dan weer in een andere volgorde moeten komen.

In realiteit gaat het over files met enkele honderden lijnen.
Dus de volgorde van de kolommen, het aantal van de kolommen en lijnen verschillen steeds in de originele file.

Kan ik dit automatisch laten verwerken?

bedankt voor de hulp en advies.
grt
StarchaserBekijk bijlage testsorteren.xlsx

 

[popipipo]

=INDEX(Origineel!$A$2:$W$9;ROWS($2:2);MATCH(A$1;Origineel!$A$1:$W$1;0))

Probeer het hier eens mee.

 

[starchaser]

Popipipo,

bedankt voor je reactie. De formule werkt, maar in het vb gaat het over 4 lijnen. Ik kan dus de lijn in tabblad doortrekken naar beneden en voila... mijn 4 lijnen zijn correct ingevuld.
In werkelijkheid zal het tabblad "origineel "steeds enkele honderden lijnen bevatten.
Kan ik nu het doortrekken automatisch laten gebeuren ifv het aantal lijnen op tabblad "origineel " ?(bv in een cel de lijnen laten tellen en met de waarde van deze cel de formule evenveel maal naar onder laten doortrekken)
grt

 

[Timshel]

Daar is VBA voor nodig:

Sub tsh()
    Dim Br, Bq
    Dim Sh As Object
    
    Set Sh = Sheets("Bewerkt")
    With Sheets("Origineel").Cells(1).CurrentRegion
        Bq = .Offset(1).Value
        Br = Application.Match(Sh.Cells(1).CurrentRegion.Resize(1), .Resize(1), 0)
    End With
    Sh.Cells(2, 1).Resize(UBound(Bq), UBound(Br)) = Application.Index(Bq, Evaluate("row(1:" & UBound(Bq) & ")"), Br)
End Sub

 

[starchaser]

Timshel bedankt voor je hulp.
Probleem opgelost en ik weer al iets bijgeleerd.

grt