|
Hallo Leute,
ich habe schon ein wenig gesucht und habe eine VBA Formel gefunden.
Allerding ist mit der Formel ein Problem aufgetreten und zwar, dass sie zwar richtig sortiert; aber für mich falsch.
Gibt es eine Möglichkeit das Sortieren zu beinflussen.
z.B. dass 40 (-> steht für 1940)
vor 2000 steht.
Momentan sieht die Tabelle so aus:
2000
2001
40
41
42
und ich hätte sie gern so:
40
41
42
2000
2001
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5:A10000")) Is Nothing Then
Range("A5:F10000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A5").Select
End If
End Sub
Gruß,
Lukas
PS: Excel 2007(falls relevant)
|