Hi an alle,

bin seit knapp 2 Wochen VBA-Neuling und versuche zu lernen. Will jetzt Spalten unabhängig voneinerander in einem Tabellenblatt verschieben. Habe mir mehrere Tutorials und Bücher angeschaut und auf diese Lösung gekommen:

' Schieben/Ordnen der Spalten Makro (nachdem kopiert wurde)
'
    ThisWorkbook.Worksheets(2).Activate
    
    Range("G2:G300").Select
    Selection.Cut
    Range("B2:B300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("B2:B300").ClearContents
    
    Range("X2:X300").Select
    Selection.Cut
    Range("D2:D300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("X2:X300").Select
    Selection.Cut
    Range("E2:E300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("J2:J300").Select
    Selection.Cut
    Range("F2:F300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("N2:N300").Select
    Selection.Cut
    Range("G2:G300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("H2:H300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("P2:P300").Select
    Selection.Cut
    Range("I2:I300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("J2:J300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("K2:K300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("L2:L300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("Q2:Q300").Select
    Selection.Cut
    Range("M2:M300").Select
    Selection.Insert Shift:=xlToRight
    
    Range("O2:AW300").ClearContents

Es funktioniert alles wunderbar, jedoch denke ich dass es eine "elegantere" und eventuell leichtere(?) Methode gibt?

Vorallem wenn es dann für mehrere Tabellen angewandt werden muss.

LG Ralle