Hallo und einen schönen guten Abend an das Forum,
Ich habe eine Frage und zwar möchte ich Spalten in einer Excel Tabelle verschieben.
Dazu habe ich das untenstehende Makro zusammengebastelt, was auch gut funktioniert.
Nur habe ich ca. 72 Spalten wovon ich 25 Spalten vertauschen muss und auch wieder zurücktauschen muss in den Ursprungszustand.
Meine Frage ist gibt es eine elegantere Lösung dafür, denn bei der Vielzahl an Spalten wird es doch sehr unübersichtlich und Lang.?
ub Makro10()
'
'spalten verschieben
'
Range("Tabelle2[[#All],[Spalte3]]").Select
Selection.Cut
Range("Tabelle2[[#All],[Spalte2]]").Select
Selection.Insert Shift:=xlToRight
Range("Tabelle2[[#All],[Spalte5]]").Select
Selection.Cut
Range("Tabelle2[[#All],[Spalte3]]").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
End Sub
Vielen Dank im Voraus
|