Sortproblem
25.04.2019 14:51:36
UweD
Ich brauch mal euer Wissen.
Hier mal eine abgespeckte anonymisierte Musterdatei als .xlsx (normal.xlsm)
https://www.herber.de/bbs/user/129385.xlsx
Mit diesem Codeschnipsel wird nach Spalte S (19) topdown sortiert.
Sub Sortieren_Test()
Dim TBTMP, LC As Integer
LC = 18
Set TBTMP = Sheets("R1")
With TBTMP
'.....
'sortieren topdown
With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=TBTMP.Columns(LC + 1), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange TBTMP.Columns(LC).Resize(, 3)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Auf 2 Rechnern klappt das (1. meiner Office 365, 2. Office 2019 Professional)
Auf einem 3. kommt diese Fehlermeldung:
"Objekt unterstützt diese Eigenschaft oder Methode nicht."
die Zeile ..
.SortFields.Add2 Key:=TBTMP.Columns(LC + 1), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
ist markiert
Diese Officeversion muss ich auch noch erfragen.
Kennt jemand das Problem? Bzw. gibt es eine andere Lösung?
LG UweD