Benutzerorientiertes Sortieren
13.04.2016 15:17:56
Wolfgang
Komme leider wieder einmal nicht weiten.
Ich habe hier eine Liste mit Namen und Adressen. Diese Liste soll sortiert werden in der Reihenfolge: Straße, Hausnummer und Hausnummernzusatz.
Auf Wunsch sollen aber bei den Hausnummern erst die Ungeraden und dann die Geraden folgen.
Dazu habe ich folgendes geschrieben:
Private Sub CommandButton1_Click()
Range(Cells(1, 1), Cells(12, 5)).Sort Key1:=Cells(1, 3), Key2:=Cells(1, 4), OrderCustom:=10, _
Key3:=Cells(1, 5)
End Sub
in der benutzerorientierten Liste ist die Reihenfolge 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,... (bis 99)festgelegt
Ich finde dazu leider keine funktionsfähige Makrolösung.
Kann mir jemand helfen?
Danke im Voraus
Wolfgang
aus dem Erzgebirge