Office: Daten mit VBA nach Alphabet sortieren

Moin!

Ich habe ein Makro das mir auch erfolgreich Datenbereich in Tabellen sortiert.
Es handelt sich aber immer um Zahlen, die in aufsteigender Reihenfolge sortiert werden.

JETZT möchte ich aber Text in alphabetischer Reihenfolge aufsteigend sortieren!
Und das klappt irgendwie nicht?!?

Folgenden Code verwende ich:


Sub Daten_sortieren_nach_Alphabet()
'
Range("B8").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B8").Select

End Sub


Was habe ich übersehen, bzw. was mache ich falsch?

Gruß
Mike

:)

 

Hallo Mike,

füge an deine selection.sort Befehl noch

Code:

an

 

Hi Mike,

also bei mir funktioniert's
Code:

entweder liegt's an Header:=xlYes oder DataOption1:=xlSortNormal

 

Hmmm - bei mir klappt es leider doch nicht.

@Sebastian:
Bei Deiner Variante erscheint nun leider folgende Fehlermeldung:
Anwendungs- oder Objektdefinierter Fehler!

Irgendwas muss ich in dem Code wohl übersehen haben.
:-(

Gruß
Mike

 

stell Du mal die Datei ins Forum

 

Hallo Sebastian!

Ich kann leider keine Datei uploaden (Firmennetzwerk).
:-(

Nun habe ich es aber hinbekommen, in dem ich einfach den Bereich (der sortiert werden soll) mit einem Namen versehen habe ("LISTE1").

Excel sortiert nun mit folgendem Makro die Daten, BIS AUF DIE ZELLE B8!!!
Diese Zelle bzw. der darin enthaltene Text bleibt IMMER dort stehen, wird nicht in die Alphaliste einsortiert.

Was ist das nun wieder?

Hier der aktuelle Code:

Sub Daten_sortieren_nach_Alphabet()
'
'
Range("Liste1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Liste1").Select

End Sub

 

ich heiß zwar Andreas... ist aber nicht so schlimm :-)

Noch kurz zum Verständnis. Liste1 ist dann Zelle B7 bis B-irgendetwas? Hast Du eine Überschrift? Wenn der Upload nicht funktioniert, könntest Du einfach die ersten vier oder fünf "Werte" ins Forum schreiben?

 

Hallo "Andreas"!

Hier auszugsweise das Tabellenblatt:
_____A_______B_______C
1
2
3
4
5
6
7_________Liste1
8_________Volksbank_________2
9_________Sparkasse________1
10________Bundesbank_______4
11________HelaBa___________3

Die anderen umliegenden Zellen sind leer, da es sich um ein Formular handelt.
In der Spalte "C" werden in Zahlen Prioritäten für die jeweilige Bank vergeben.
Diese Liste mit den Banknamen soll alphabetisch sortiert werden...

Gruß
Mike

 

Hi Mike,

also wenn ich diese Werte mit Deinem Code sortiere komme ich auf folgendes Ergebnis
Zeile7: Bundesbank 4
Zeile8: HeLaBa 3
Zeile9: Liste 1
Zeile10: Sparkasse 1
Zeile11: Volksbank 2

Der Wert "Liste1" wird mitsortiert. Ich würde empfehlen Header:=xlYes verwenden. Aber Zelle B8 wird bei mir mit sortiert.

 

Hallo!

Komisch - wie gesagt: Bei mir wird auch sortiert, allerdings bleibt B8 immer FIX!
Dieser Wert wird einfach nicht mitsortiert. Ich habe auch die Formatierung einer anderen Zelle in diese Zelle kopiert, auch einen anderen Wert aus einer anderen Zelle, Blattschutz ist auch nicht drin...
Und TROTZDEM WIRD B8 NICHT sortiert.

Wo kann ich noch schauen?

Gruß
Mike

 

nochmal zum Verständnis.

In B7 steht Liste1?

Bei Dir sieht's so aus?
vorher nachher
Liste1 Liste1
Volksbank 2 Volksbank 2
Sparkasse 1 Bundesbank 4
Bundesbank 4 HelaBa 3
HelaBa 3 Sparkasse 1

 

GENAU! So sieht es bei mir aus!

Dieser Wert bleibt einfach unberücksichtigt.
Mein benannter Bereich "Liste1" geht auch ab B8 bis Bx, daran sollte es auch nicht liegen...

Gruß
Mike

 

sorry Mike, aber egal was ich mache bei mir sortiert er mit Deinem Code richtig
Liste
BuBa
HeLaBa
SPK
VoBa