Hallo liebes Forum,

ich habe mit Hilfe des Makrorekorders einen Code zusammengebastaelt, der mir beim Speichern eine Listbox und drei Tabellenblätter sortiert. Allerdings lahmt das ganze ein wenig und ich bin mir ziemlich sicher, dass der Code sich vereinfachen lässt, sofern man ausreichend Ahnung hat. Daher wende ich mich hiermit an die Experten und wäre über ein paar Hilfestellungen sehr dankbar.

    Private Sub Sortieren()
    '
    ' Sortieren Makro


        ActiveWorkbook.Worksheets("Objektinfos").Sort.SortFields.Add Key:=Range( _
            "A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        ActiveWorkbook.Worksheets("Übergabe und Rücknahme").Sort.SortFields.Add Key:=Range( _
            "A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        ActiveWorkbook.Worksheets("Rechnungsabteilung").Sort.SortFields.Add Key:=Range( _
            "A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        With ActiveWorkbook.Worksheets("Objektinfos").Sort
            .SetRange Range("A:F")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        With ActiveWorkbook.Worksheets("Übergabe und Rücknahme").Sort
            .SetRange Range("A:I")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        With ActiveWorkbook.Worksheets("Rechnungsabteilung").Sort
            .SetRange Range("A:J")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End Sub

Vielen Dank und liebe Grüße

Anja