Sortierung

Question

Hallo Zusammen,

ich möchte gerne den Bereich "A17" bis "C" und letzteZeile sortieren.

Folgenden Code (und schon viele andere) habe ich bereits ausprobiert, funktioniert aber nicht:

With wks_Uebersicht
            .Activate()
            .Range("A17:C" & lz_Gewerk).Sort(
                Key1:= .Range("C17"),
                Order1:=XlSortOrder.xlAscending, Header:=XlYesNoGuess.xlYes)
        End With

Die Kopfzeilen befinden sich in Zeile 17 

Was bitte mache ich hier falsch?

Liegt es daran, dass der Bereich als Tabelle (Name = "Gewerketabelle9") eingefügt ist?

Und wenn ja, wie muss der Code dann lauten?

Vielen Dank schon mal

Gruß Oisse

Answer 1

Mittlerweile habe ich auch folgenden Code (lt. Makrorekorder) ausprobiert:

With wks_Uebersicht
            .Activate()
            .ListObjects("Gewerketabelle9").Sort.SortFields.Clear()
            .ListObjects("Gewerketabelle9").Sort.SortFields.Add(
                Key:= .Range("Gewerketabelle9[[#All],[Reihenfolge]]"), SortOn:=XlSortOn.xlSortOnValues,
                Order:=XlSortOrder.xlAscending, DataOption:=XlSortDataOption.xlSortTextAsNumbers)
            With .ListObjects("Gewerketabelle9").Sort
                .Header = XlYesNoGuess.xlYes
                .MatchCase = False
                .Orientation = XlSortOrientation.xlSortRows
                .SortMethod = XlSortMethod.xlPinYin
                .Apply()
            End With
        End With

Aber auch der funktioniert nicht.

Kann bitte jemand helfen

Gruß Oisse