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
|