VBA copy und paste

[PetrolMaxxe]

Hallo,

per VBA via Index/Vergleich so:

Code:

Sub StattFormel()   'schön flexibel
    Dim arrList(): arrList = Tabelle1.Range("A1:F4")
    arrList = Application.Index(arrList, Evaluate("row(1:" & UBound(arrList, 1) & ")"), Array(1, 3, 4, 6, 5))
End Sub

oder
Sub StattFormel1()  'Einzeiler
    Tabelle1.Range("A1") = Application.Index(Tabelle1.Range("A1:F4"), Evaluate("row(1:" & Tabelle1.Range("A1:F4").Rows.Count & ")"), Array(1, 3, 4, 6, 5))
End Sub

Ich weiß jetzt nicht, ob O2021 schon Spaltenwahl kennt. Das wäre dann ressourcenschonender als SEQUENZ(). =SPALTENWAHL(A1:F4;1;3;4;6;5)

In VBA ist leider SPALTENWAHL() bisher nicht vorhanden. Das wird also auch mit Evaluate nicht zum Ziel führen.

Sabinas Formel ver VBA't:

Code:

Sub SpaltenwahlViaSequence()
    Dim rng As Range, arr()
    Set rng = Tabelle1.Range("A1:F4")
    arr = Application.Index(rng, WorksheetFunction.Sequence(rng.Rows.Count), Array(1, 3, 4, 6, 5))
    Tabelle1.Range("A1").Resize(UBound(arr), UBound(arr, 2)).Value = arr
End Sub

Gruß Uwe