Fehlercode 438 auf anderem Rechner
24.10.2021 14:13:23
Andreas
mit folgendem Code sortiere ich schon seit eh und je die Tabelle. Wenn ich allerdings einen anderen Rechner mit Excel 2016 verwende, kommt ein Laufzeitfehler 438.
Woran könnte das liegen, bzw. wie kann ich das Problem auch für den 2016er beseitigen?
Sub Tabelle_sortieren()
Const CustOrd = "Kriterium1,Kriterium2,Kriterium3,Kriterium4, Kriterium5"
With ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort
.SortFields.Clear
.SortFields.Add2 Key:=Range("Tabelle2[Datum]"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SortFields.Add2 Key:=Range("Tabelle2[Kriterium]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
CustomOrder:=CustOrd, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub