|
Hallo Leute,
Ich habe aktuell eine Tabelle und möchte die Spalten anordnen. Die Spalten sind aktuell durcheinander.
Beispiel:
Quelldatei
(1)Haus (2)Auto (3)Fahrrad (4)Himmel (5)Schiff
Zieldatei
(1)Himmel (2)Haus (3)Schiff (4)Fahrrad (5)Auto
Das heißt ich möchte eigentlich alle Spalten in eine bestimmte Stelle verschieben. Also nicht nur eine.
Ich habe zwar folgenden Code gefunden, aber das kann man für eine Spalte anwenden denke ich mal.
------------------------------------
Sub ShiftColumnsInWorksheet()
Dim lngColSource As Long
Dim lngColsCount As Long
Dim lngColTarget As Long
lngColSource = 1
lngColsCount = 2
lngColTarget = 5
With ActiveWorkbook.Worksheets(1)
.Range(.Columns(lngColSource), _
.Columns(lngColSource + lngColsCount - 1)).Cut
.Columns(lngColTarget).Insert Shift:=xlToRight
End With
End Sub
------------------------------------
Ich will aber sagen können: (Haus) in die Spalte B, (Auto) in die Spalte (5) etc.
Ich bedanke mich schon im Voraus für eure Hilfen.
|