Makro Sortierfunktion
30.10.2016 10:18:38
Sven
ich habe ein Makro aufgezeichnet , welches eine Tabelle nach bestimmten werten sortieren soll .
Dieses habe ich dann in das Tabellenblatt geschrieben und es soll sich aktivieren bei Änderungen .
Jedoch bekomme ich die Fehlermeldung "Laufzeitfehler 28, nicht genügend Stapelspeicher vorhanden.
Kann man das irgendwie anpassen ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Sortieren Makro
' Sortieren der Tabelle Personalstamm
Range("Tabelle1[[#Headers],[Name ]]").Select
Application.DeleteCustomList ListNum:=13
Application.AddCustomList ListArray:=Array("Filialleiter", _
"Stellvertretung FL", "Verkäufer", "Aushilfe")
Application.DeleteCustomList ListNum:=11
Application.AddCustomList ListArray:=Array("Vollzeit", "Teilzeit", "AZUBI", _
"Aushilfe")
ActiveWorkbook.Worksheets("Personalstamm").ListObjects("Tabelle1").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Personalstamm").ListObjects("Tabelle1").Sort. _
SortFields.Add Key:=Range("Tabelle1[Position]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:= _
"Filialleiter,Stellvertretung FL,Verkäufer,Aushilfe", DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Personalstamm").ListObjects("Tabelle1").Sort. _
SortFields.Add Key:=Range("Tabelle1[Anstellungsart]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Vollzeit,Teilzeit,AZUBI,Aushilfe", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Personalstamm").ListObjects("Tabelle1").Sort. _
SortFields.Add Key:=Range("Tabelle1[Eintrittsdatum]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, CustomOrder:="Datum", DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Personalstamm").ListObjects("Tabelle1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub