Spalten per VBA sortieren anhand der Überschrift

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas!
Ist sowas mit VBA möglich?
Evtl. ja, allerdings wäre dazu eine Bsp-Datei Deinerseits äußerst hilfreich, um das zweifelsfrei zu beantworten. Einerseits weil die Datei relativ groß ist , d.h. es gilt abzuschätzen welches Datenvolumen hier herumgeschoben/sortiert wird und außerdem solche Dateien immer wieder vorkommen, da ist die Frage ob die herzustellende Sortierung immer die gleiche ist, oder ob die Ausgangsdaten immer wieder neu durcheinandergewürfelt daherkommen - das hat dann alles Auswirkungen auf die angewandte Sortierstrategie.
Das von Dir gegebene Beispiel zeigt, dass das durchaus komplex werden kann, denn Du willst hier ja keine numerische oder alphabetische Sortierung, sondern eine Sortierung aufgrund einer bestimmten Logik - das muss also programmatisch extra umgesetzt werden, standardmäßig geht das nicht. Und programmatisch umsetzen ist nur dann sinnvoll bei wiederkehrenden Sortierungen, wenn die Logik gleich bleibt, sonst muss der Sortier-Algorithmus jedes Mal neu entwickelt werden - damit schließt sich der Kreis zu meinem ersten Absatz.
Daher: Ohne Kenntnis Deiner Verhältnisse und Zielsetzungen, kann hier kaum eine Aussage getroffen werden. Eine Bsp-Mappe muss Deinen echten Verhältnissen entsprechen, allerdings kannst Du die entsprechenden Daten an sich mit Dummy-Daten ersetzen.
LG
Michael

Hallo,
leider komme ich erst jetzt dazu eine Beispieldatei hochzuladen.
In der Original datei können auch mehr Spalten vorhanden sein.
Die Spaltenlänge ist auch unterschiedlich.
Wenn sich die Spalten immer an der gleichen Stelle befinden würden, wäre es kein Problem mit z.B.:

Columns("I:J").Cut
Columns("E:F").Insert Shift:=xlToRight

usw...
Aber das ist leider nicht der Fall. Und weil immer zwei Spalten zusammengehören kann ich das mit Uwe's Vorschlag auch nicht realisieren (danke dafür).
Die zweiten Spalten haben die gleiche Überschrift.
Sie werden richtig zugeordnet in die Datei reinkopiert.
Zur besseren Veranschaulichung, habe ich die zusammengehörenden Spalten farbig markiert.
Auch die Spaltenüberschriften sind im Original länger.
Hier das Beispiel: https://www.herber.de/bbs/user/109515.xlsm
Vielen Dank schonmal im Voraus.
Gruß
Andreas

Sub SpaltenPaarweiseUmsortieren() Dim i As Long Dim Ueberschriften As Variant Ueberschriften = Array("X-Daten", "Table", "X1", "X", "Y", "Z") With ActiveWorkbook.Worksheets("Daten") .Rows(1).Insert With .Cells(1).CurrentRegion For i = 1 To .Columns.Count Step 2 .Cells(1, i).Value = Application.Match(.Cells(2, i).Value, Ueberschriften, 0) * 2 - 1 .Cells(1, i + 1).Value = .Cells(1, i).Value + 1 Next i .Sort Key1:=.Rows(1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlLeftToRight End With .Rows(1).Delete End With End Sub

Sub SpaltenUmsortieren() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Daten") Dim WsZ As Worksheet, Spalten, i As Long Dim Kopf As Range, Block As Range, Z As Long, X As Long Spalten = Array("X-Daten", "Table", "X1", "X", "Y", "Z") Application.ScreenUpdating = False Set WsZ = Wb.Worksheets.Add WsZ.Name = "Daten_sortiert" With WsQ Set Kopf = .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight)) For i = LBound(Spalten) To UBound(Spalten) Set Block = Kopf.Find(Spalten(i), LookIn:=xlValues) With Block Z = .End(xlDown).Row .Resize(Z, 2).Copy End With With WsZ X = .Cells(1, .Columns.Count).End(xlToLeft).Column .Cells(1, X).PasteSpecial xlPasteValuesAndNumberFormats End With Next i End With Application.ScreenUpdating = True End Sub

Sub SpaltenUmsortieren() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Daten") Dim WsZ As Worksheet, Spalten, i As Long Dim Kopf As Range, Block As Range, Z As Long, X As Long Spalten = Array("X-Daten", "Table", "X1", "X", "Y", "Z") Application.ScreenUpdating = False Set WsZ = Wb.Worksheets.Add WsZ.Name = "Daten_sortiert" With WsQ Set Kopf = .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight)) For i = LBound(Spalten) To UBound(Spalten) Set Block = Kopf.Find(Spalten(i), LookIn:=xlValues) Z = .Cells(.Rows.Count, Block.Column).Row Block.Resize(Z, 2).Copy With WsZ X = .Cells(1, .Columns.Count).End(xlToLeft).Column .Cells(1, X).PasteSpecial xlPasteValuesAndNumberFormats End With Next i End With Application.ScreenUpdating = True End Sub

Sub SpaltenUmsortieren() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Daten") Dim WsZ As Worksheet, Spalten, i As Long Dim Kopf As Range, Block As Range, Z As Long, X As Long Spalten = Array("X-Daten", "Table", "X1", "X", "Y", "Z") Application.ScreenUpdating = False Set WsZ = Wb.Worksheets.Add WsZ.Name = "Daten_sortiert" With WsQ Set Kopf = .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight)) For i = LBound(Spalten) To UBound(Spalten) Set Block = Kopf.Find(Spalten(i), LookIn:=xlValues) Z = .Cells(.Rows.Count, Block.Column).Row Block.Resize(Z, 2).Copy With WsZ X = .Cells(1, .Columns.Count).End(xlToLeft).Column .Cells(1, X + 1).PasteSpecial xlPasteValuesAndNumberFormats End With Next i End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Spalten per VBA sortieren anhand der Überschrift

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

43 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten per VBA sortieren anhand der Überschrift

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

43 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread