Hilfe beim Makro

[Moabs]

Was ist an diesem Makro falsch, bitte hilfe

ActiveWorkbook.RefreshAll
'
ActiveWorkbook.Worksheets("Start11").ListObjects("Tabelle4").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Start11").ListObjects("Tabelle4").Sort.SortFields. _
Add2 Key:=Range("Tabelle2[[#All],[Marktwertentwicklung]]"), SortOn:=
xlSortOnValues , Order:=xlDescending, DataOption:=xlSortNormal

[#2]

Hallo @Moabs 

in dem zweiten Sort-Befehl verweist du in ListObjects auf Tabelle4 und im SortRange auf Tabelle2. Das sollte doch beides die gleiche Tabelle sein, oder?

[#3]

Hab jetzt nochmal das gesamte eingefügt, auch mit ändern auf Tabelle 4 geht es nicht, ich denke der Fehler liegt wo anders

Sub Makro2()
'
' Makro2 Makro
'
ActiveWorkbook.RefreshAll
'
ActiveWorkbook.Worksheets("Start11").ListObjects("Tabelle4").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Start11").ListObjects("Tabelle4").Sort.SortFields. _
Add2 Key:=Range("Tabelle4[[#All],[Marktwertentwicklung]]"), SortOn:=
xlSortOnValues , Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Start11").ListObjects("Tabelle4").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

[#4]

Hallo @Moabs 

was genau ist denn das Problem. Gibt es eine Fehlermeldung und wenn ja, welche? Wie sehen die Tabellen aus? Ein paar Screenshots oder noch besser eine Beispieldatei wären sehr hilfreich.