Runtime 438 - 365 vs Excel 2016
03.01.2023 11:11:24
Thomas
ich habe wieder einmal ein Problem. Ich habe einem Bekannten eine kleine Sortierung für ein Sheet mit mehreren Tabellen in den Seitencode geschrieben. Bei mir auf 365 läuft der einwandfrei, aber bei seinem Excel 2016 kommt immer ein Runtime Error 438. Dieser wird bei ihm im Debug im 2. Absatz von "ActiveWorkbook.Worksheets("Ergebnisliste")" bis "xlSortNormal" angezeigt. Irgendwelche Ideen wie ich den beheben kann?
Private Sub Worksheet_Activate()
ActiveWorkbook.Worksheets("Ergebnisliste").ListObjects("Schueler_Weiblich"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ergebnisliste").ListObjects("Schueler_Weiblich"). _
Sort.SortFields.Add2 Key:=Range("Schueler_Weiblich[Total]"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ergebnisliste").ListObjects("Schueler_Weiblich" _
).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub