Forum Discussion
Hilfe beim Makro
Was ist an diesem Makro falsch, bitte hilfe ActiveWorkbook.RefreshAll ' ActiveWorkbook.Worksheets("Start11").ListObjects("Tabelle4").Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Start1...
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
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
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.