Spalten reihen folge vordefinieren

Question

hallo zusammen

ich bekomme jeden monat eine auswertung mit der ich weiter arbeite. Jedoch ändert sich die reihenfolge der 50 Spalten gibt es eine möglichkeit mit vba die spalten reihen folge
fetlegen zu können..

in allen spalten steht die SpaltenName in zelle 7

man müsste es erst herauslesen in welche position diese spalte sich befindet um später es in die richtige position zu verschieben

bin für jeden Tipp dankbar.

Viele grüsse

Answer 1

Hi,

Sub sortieren()
' Code von jinx
Dim strSearch As Variant
Dim intColumn As Integer
Dim bytCounter As Byte
strSearch = Array("Gestern", "Heute", "Morgen", "Übermorgen") ' festgelegte Reihenfolge
For bytCounter = LBound(strSearch) To UBound(strSearch)
intColumn = Rows("7:7").Find(What:=strSearch(bytCounter), _
After:=Cells(7, Columns.Count), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Column
Columns(intColumn).Cut
Columns(1).Insert Shift:=xlToRight
Next bytCounter
Application.CutCopyMode = False
End Sub

Bis später,
Karin