Spalten alphabetisch sortieren & leere Zellen am Ende Stellen

[cysu11]

Hi zusammen,

Ich habe folgendes Thema, in den Zellen E1 bis S1 habe ich Namen stehen und darunter vielen Daten. 
Mit folgenden Code sortiere ich die Spalten alphanbetisch:

Code:

Sub testSortierung()
ThisWorkbook.Sheets("test").Unprotect
    Range("E1:S486").Select
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Add2 Key:=Range( _
        "E1:S1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("test").Sort
        .SetRange Range("E1:S486")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
ThisWorkbook.Sheets("test").Protect
MsgBox "Sortierung erfolgreich abgeschlossen!"
End Sub

Das Problem ist, dass leere Zellen am Anfang, also links gestellt werden, ich brauche diese aber am Ende rechts. Also A,B,C etc. und die leeren Zellen am Ende der Zeile.
Wie muss ich den Code ändern, damit er das tut? :)

Herzlichen Dank im Voraus
LG
Alexandra

[schauan]

Hallo,

die Spalten werden anhand der Inhalte von Zeile 1 sortiert.
Wenn Du leere Zellen anderswo haben willst, geht der Spatenzusammenhang verloren.
Sortiere jede Zeile einzeln, wenn das egal ist.

[cysu11]

Hallo Andre,

was meinst du damit, der Spaltetusammenhang geht verloren? Es wird doch der gesamte Bereich markiert und die Spalten werden komplett im Bereich sortiert nach den Inhalten in Zeile 1? Nur eben, das in E1 statt der erste Name der nach Alphabet an erste Stelle stehen sollte sind erstmal die ganzen Spalten nach Links sortiert worden die in Zeile 1 leer sind! Diese sollen aber erst am Ende nach dem nach dem Alphabet vorhandenen letzten Name. Also z.B. in E1 steht Alex in F1 ist leer und G1 steht Zoro. Dann sollte die Reihenfolge wie folgt sein:
E1 Alex
F1 Zoro
G1 leer

und nicht
E1 leer
F1 Alex
G1 Zoro

Ich hoffe jetzt ist es verständlicher!  :)

Vielen Dank & LG, Alexandra

[LCohen]

"Zelle wirklich leer" und "formelmäßig oder -geplättet leer" ist ein Unterschied. Wenn Deine Leerzellen also beim Sort nicht am Ende stehen, liegt letzteres vor.

[RPP63]

Um LCohen zuzustimmen:
"Echte" Leerzellen werden korrekt sortiert.
Übrigens nehme ich "immer noch" die Range.Sort-Methode statt des Worksheets.Sort-Objekts.
Damit dampfe ich den Code auf eine Zeile ein.

Vorher:

	E	F	G	H
1	Klaus		Bernd
2	Z2S5	Z2S6	Z2S7
3	Z3S5	Z3S6	Z3S7
4	Z4S5	Z4S6	Z4S7
5	Z5S5	Z5S6	Z5S7
6	Z6S5	Z6S6	Z6S7
7	Z7S5	Z7S6	Z7S7
8	Z8S5	Z8S6	Z8S7
9	Z9S5	Z9S6	Z9S7
10	Z10S5	Z10S6	Z10S7

Code-Einzeiler:

Sub Spaltensort()
Range("E1:S486").Sort Range("E1"), Orientation:=xlSortRows
End Sub

Ergibt:

	E	F	G	H
1	Bernd	Klaus
2	Z2S7	Z2S5	Z2S6
3	Z3S7	Z3S5	Z3S6
4	Z4S7	Z4S5	Z4S6
5	Z5S7	Z5S5	Z5S6
6	Z6S7	Z6S5	Z6S6
7	Z7S7	Z7S5	Z7S6
8	Z8S7	Z8S5	Z8S6
9	Z9S7	Z9S5	Z9S6
10	Z10S7	Z10S5	Z10S6

Gruß Ralf

[schauan]

Hallöchen,

also, wenn die leeren nur in Zeile 1 am Ende stehen sollen, hat LCohen recht.

Wenn es Dir jedoch darum geht, in jeder Zeile die leeren am Ende zu haben - so habe ich das aufgefasst -, dann gibt es ein anderes Problem und das meinte ich mit dem Spaltenzusammenhang. Nehmen wir mal das "normale" Sortieren.

Erstelle eine zweispaltige Liste mit Namen und Vornamen. Lasse bei einigen die Vornamen weg. Teste verschiedene Varianten des Sortierens, bis die "leeren" Vornamen am Ende stehen.
(Stelle Dir dann die Frage, ob das in dieser Tabelle sinnvoll ist)
Falls sich die zusammengehörenden Namen und Vornamen schlecht merken lassen, kannst Du auch zusammenhängende Substantive auf zwei Spalten verteilen und bei einigen die zweite Spalte frei lassen. Im Sinne eines Kinderbuchs mit Tierbildern, das in der Mitte geteilt war sodass man die Hälften einzeln blättern konnte - nimm Kroko-dil, Ele-fant, Nas-horn, Eis-bär usw  

Unabhängig davon - wenn es in den Zeilen auch wieder Formeln gibt sind wir darüber hinaus wieder bei LCohens Hinweis.

[LCohen]

Im Sinne eines Kinderbuchs mit Tierbildern, das in der Mitte geteilt war sodass man die Hälften einzeln blättern konnte - nimm Kroko-dil, Ele-fant, Nas-horn, Eis-bär usw  

Klasse!

[cysu11]

Hallo LCohen, hallo Andre, hallo Ralf,

DANKE!!! Das war es, da waren Formeln in den Zellen, deswegen hat es nicht so funktioniert wie ich wollte. Aber nun funktioniert es so wie es soll. :)

Vielen lieben Dank für Eure Hilfe!!
LG
Alexandra