Tabelle sortieren - Dann alles markiert
07.11.2021 13:37:23
Andreas
ich sortiere mit nachfolgendem Code eroflgreich mein Tabellenblatt. Das einzige was mich stört, danach ist alles markiert und bleibt markiert, bis ich in die Zelle klicke.
Kann man das irgendwie ändern, dass danach nichts ausgewählt ist ? LG
Public Sub Tbl_Tätigkeitsnachweise_sortieren()
'Tabellenblatt Tätigkeitsnachweise sortieren
Application.AddCustomList ListArray:=Array("Fall1", "Fall2", _
"Fall3", "Fall4", "Fall5")
ActiveWorkbook.Worksheets("Tätigkeitsnachweise").ListObjects("Tbl_Tätigkeitsnachweise").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Tätigkeitsnachweise").ListObjects("Tbl_Tätigkeitsnachweise").Sort. _
SortFields.Add Key:=Range("Tbl_Tätigkeitsnachweise[Datum]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortTextAsNumbers
ActiveWorkbook.Worksheets("Tätigkeitsnachweise").ListObjects("Tbl_Tätigkeitsnachweise").Sort. _
SortFields.Add Key:=Range("Tbl_Tätigkeitsnachweise[Fall]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:= _
"Fall1", "Fall2", "Fall3", "Fall4", "Fall5", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Tätigkeitsnachweise").ListObjects("Tbl_Tätigkeitsnachweise").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub