|
Der Hinweis ist auch für die Helfer gedacht, nicht für dich ...
... übrigens ist es äußerst ungern gesehen (sogar verpönt), dass jemand über merhere Foren hinweg mehrere Leute an einem Problem sitzen lässt und noch nicht mal darauf hinweist!! Sowas endet in 99% immer ohne helfende Antwort.
Der Code mal leserlich: (solltest du dieses Forum weiterhin nutzen wollen, nutze hier bitte nicht den Internet Explorer zum Themen posten)
Set Tabelle = Worksheets("Übersetzungen").ListObjects("Tabelle1")
With Tabelle.Sort
.SortFields.Clear
.SortFields.Add Key:=Tabelle.Range("[[#All],[Motornr.]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Das Problem liegt glaube ich hier in Zeile 6.
In deinem Code-Schnipsel steht beim Key nur Range(), allerdings willst du dich ja auf die Range in Tabelle beziehen.
Weiterhin wundert mich das Argument, ich sehe "[[#All], [Ausdruck]]" hier zum ersten ma. Wüsste nicht das das ein gültiger Ausruck ist.
Grüße
|