Liste alphabetisch sortieren

[christian.o]

Guten Abend,
eigentlich komme ich ganz gut mit Excel zurecht, nun habe ich aber doch mal eine Frage an die Profis unter euch.
iIch habe in der Spalte A von A5 bis A11 Namen, die nicht alphabetisch sortiert sind.
Ich möchte, dass mein Programm die Namen in den Zellen B5 bis B11 alphabetisch sortiert ausgibt.
Ich bin leider etwas ratlos..
Vielen Dank für euch Hilfe!

[steve1da]

Hola,

ab Office365 gibt es Sortieren().
Gruß,
steve1da

[christian.o]

Vielen Dank, aber...

Code:

Sub Sortieren()

Columns(1).Sort Key1:=Range("A5:A11"), Order1:=xlAscending, Header:=xlGuess, _
MatchCase:=False, Orientation:=xlTopToBottom

End Sub

...das mit dem Sortieren an sich, ist nicht das Problem(siehe oben)

Aber wie schaffe ich es, dass die Namen in Spalte B ausgegeben werden?

[LCohen]

Du hast nicht verstanden, dass steve =SORTIEREN() meinte, nicht Sortieren().

[christian.o]

Achso, ja Danke, so einfach könnte es gehen.  

Aber darum gehts mir nicht, ich möchte das  ja im Makros programmieren..

LG

[BoskoBiati]

Hey,

dann kopiere doch zuerst die Spalte A nach B und sortiere B!

[christian.o]

Nun wird mir der Laufzeitfehler 1004: Der Sortierbezug ist ungültig. Überprüfen Sie ... angezeigt.
Obwohl ich in meinem Code nur A zu B geändert habe..

Code:

Sub Sortieren()

Columns(1).Sort Key1:=Range("B5:B11"), Order1:=xlAscending, Header:=xlGuess, _
MatchCase:=False, Orientation:=xlTopToBottom

End Sub

[BoskoBiati]

Hi,

wo hast Du den Code denn abgeschrieben, ohne ihn zu verstehen?

Schritt 1:  Spalte A nach B kopieren ( eine Zeile Befehl)
Schritt 2: Sortieren der Spalte B (Columns(2))