Office: Spalten sortieren nach Zeileninhalt

Hallo Leute,

ich möchte in meiner Datei alle Spalten ab Spalte E nach den Inhalten in Zeile 6 ab E6 sortieren.
Kann mir jemand dafür einen Code geben?

Danke
Gruß
manega

:)

 

Range("E6").Sort Key1:=Range("E6"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom

 

Hallo Hajo,

erst einmal vielen Dank.
Bei mir tauscht dein Code nur die Zeilen 4 und 5 gegeneinander aus!
Ich hätte noch erwähnen sollen, dass A1 bis L1 sowie A2 bis C6 verbundene Zellen sind. Da hatte der Code auch gemeckert. Und falls das auch noch wichtig ist, die Inhalte in Zeile 6 werden durch eine Formel dargestellt:
=INDEX(Material!$E:$E;SPALTE(J9))

Ich habe mal eine abgespeckte Version meiner Datei beigefügt.

Gruß
manega

 

verbundene Zelle lehne ich ab.
Es wird schon seinen Grund gehabt haben das im ersten Beitrag keine Datei verlinkt wurde.
Ich habe nun schon die Zeit investiert um das in meiner Datei nachzubaue.
Das reicht an Zeit. Ich schaue mir Deine Datei nicht an.
Ich bin dann raus.

 

Hallo Hajo,

sorry, mir war nicht bewusst, dass die verbundenen Zellen ein Problem sein könnten.
Ich habe hier aus dem Forum einen Code erhalten, der eine Tabelle nach Zeilen sortiert. Bei diesem Code gab es keine Probleme mit verbundenen Zellen!

Gruß
manega

 

Hallo Manega,

natürlich sind die ein Problem. Wobei du die (überflüssige) Verbindung der Zellen A1 bis L1 aufheben kannst. Das hat auf die Darstellung deines Textes keine Auswirkung. Dieses (aufgezeichnete) Makro sollte dann funktionieren:

PHP:

         ActiveWorkbook.Worksheets("Baugruppen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Baugruppen").Sort.SortFields.Add Key:=Range( _
"E6:W6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Baugruppen").Sort
.SetRange Range("E2:W20")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With


 

Hallo Klaus-Dieter,

Vielen Dank für deinen Code, ich habe ihn mal getestet. Keine Ahnung was er macht, aber Spalten sortiert er nicht! ?????

Gruß
manega

 

Hallo,

ich weiß nicht, was du getestet hast, aber der Quelltext sortiert Spalten.

 

Hallo Klaus-Dieter,

ich habe den Code in die verlinkte Datei eingefügt.
Hier ein Screenshot vor dem sortieren:

https://www.dropbox.com/s/ydp9hrn7er...57.34.png?dl=0

Und hier ein Screenshot nach dem Sortieren:

https://www.dropbox.com/s/r9v2jac3jq...01.22.png?dl=0

Es werden nur die Zellen F10:F20 nach J10:J20 verschoben.

Ziel ist, dass die ganze Spalte alphabetisch sortiert wird. Und das nach den Inhalten in Zeile 6!

Gruß
manega