|
Hallo,
ich stehe momentan vor einem kleinem Problem, welches ich einfach nicht gelöst bekomme. Ich habe eine Tabelle, welche Werte wie z.b. ( 150 Produktionsleitung ) beinhaltet. Quasi am Anfang immer eine Zahl, dann ein Leerzeichen und dann ein Wort. Nun möchte ich die Tabelle nach der Zahlengröße sortieren.
Mein Ansatz hierfür war der hier:
Private Sub Worksheet_Change(ByVal Target As Range)
'Beschränken der Makroausführung auf den Bereich A1 bis A100
If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
'Bereich, auf den sich die Sortierung auswirken soll
Range("A1:A100").Select
'Sortierkriterien
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
'Zelle A1 auswählen
Range("A1").Select
End If
End Sub
Das ganze funktioniert auch soweit, nur leider möchte ich es nach der Zahlengröße sortiert haben. Hier wird es ja nur nach der Anfangszahl sortiert.
Kann mir da jemand vielleicht weiterhelfen ?
|