Clever-Excel-Forum

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

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

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!

tyr0n

schauan

tyr0n