1
Excel / Antw:Office 2010: Makro zum Sortieren der Tabelle / Automatische Sortierung bei Eingabe?
« am: Oktober 24, 2017, 14:42:09 Nachmittag »
Hab ich bereits gemacht:
'
ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort.SortFields. _
Add Key:=Range("Tabelle1[[#All],[Bis wann]]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
'
ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort.SortFields. _
Add Key:=Range("Tabelle1[[#All],[Bis wann]]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("ToDoListe").ListObjects("Tabelle1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub