Sortierkriterium?
21.06.2004 12:54:40
Peter
mit nachstehendem Code sortiere ich eine Tabelle nach den gewünschten Kriterien....jetzt habe ich leider in der Spalte H nicht nur Zahlen 1, 2, 3 usw sondern auch noch A, B, C.....und diese sollten als erstes gewählt werden, so dass also dann z.B folgende Reihenfolge entsteht:
A
B
1
2
3
Sub Sortier()
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Range("A2:K100").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
Key2:=Range("J2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
wie kann man das bewerkstelligen?
Danke Euch
Peter S.