Excel Sortieren nach 2ter Zahl in einer Spalte

[Kiesel]

Hallo an Alle,
seit Stunden versuche ich erfolglos, in excel 2003 eine Tabelle zu sortieren.
Folgendes Problem:
In Spalte A habe ich die Bezeichnung der Zeile.
0_0 , 0_1, 0_2 usw.
bis
36_0, 36_1 usw.
Die vorhandene Sortierung beginnt also mit der Zahl vor dem Unterstrich.

ich brauche dringendst:
Sortierung nach der Zahl nach dem Unterstrich, also später so:
0_0
1_0
2_0
...
0_36
1_36

Hoffe, ich habe mich für die Experten halbwegs verständlich ausgedrückt.
Wer kann mir helfen?
Dank schon im voraus.

Kiesel

[Tanto]

Hallo Kiesel

Die zu sortierenden Daten sind Spalte A und Spalte B ist eine Hilfsspalte die ausgeblendet sein sollte

Liebe Grüße Tanto

 
Sub SortierenCrit1_Crit2()
    Dim Lzeile As Long
    Lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:A" & Lzeile).Copy Range("B1:B" & Lzeile)
    Range("B1:B" & Lzeile).Replace What:="*_", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Columns("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1"), _
    Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("B1:B" & Lzeile).Clear
End Sub

[Kiesel]

Recht herzlichen Dank.
Ich sollte mein Problem damit gelöst haben.

Kiesel