Hallo,
ich habe eine intelligente Tabelle, die ich gerne sortieren möchte, jedoch bekomme ich den Fehler: Methode Range fürdas objekt global fehlgeschlagen.
hier der code:
Set Tabelle = Worksheets("Übersetzungen").ListObjects("Tabelle1")
With Tabelle.Sort
.SortFields.clear
.SortFields.Add Key:=Range(Tabelle & "[[#All],[Motornr.]]"),
SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
////////////hier taucht der Fehler auf//////////
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
wenn ich es manuell mit der funktion der Tabelle mache, funktioniert es.
Ich hoffe mir kann einer weiter helfen und im voraus, schonmal Danke