Sortierungsproblem
Johannes
Ich hab ein kleines Problem bei der Sortierung von Daten.
Ich will als 2. Sortierkriterium aus einer Zelle mit dem 11. Zeichen beginnen.
Mein Versuch schlug bisher fehl:
Sheets("Tabelle12").Select
Tabelle12.Range("A7:F500").Select
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Key2:=Mid("B7", 11, 3), Order2:=xlacending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Leider funktioniert das mit dem Mid - Befehl nicht wirklich. Wäre um eure Hilfe froh!
mfg