VBA Autofilter Sort von A-Z

[tyr0n]

Hallo Community,

ich habe in meinem Script einige Autofilter die ich per Makro löse:
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=12, Criteria1:= _
        "offen"

Ich finde jedoch im Netz keine Info, wie ich Feld 6 einfach von A bis Z, oder Z bis A sortiere...

Mit .Range.AutoFilter.Sort habe ich schon herumgespielt.... allerdings ohne Erfolg :(


Was mache ich verkehrt? Vielen Dank im Voraus.

VG Steve

[schauan]

Hallöchen,

zuweilen hilft Dir auch der Makrorekorder. Das wäre z...A

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort.SortFields. _
        Add2 Key:=Range("Tabelle1[was]"), SortOn:=xlSortOnValues, Order:= _
        xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[tyr0n]

Oh man, den setze ich einfach zu wenig ein. Aber du hast natürlich recht. 
Ich dachte das es eine schönere/einfacherer Methode mit AutoFilter gibt. 

Besten Dank!