Forum Discussion

Moabs's avatar
Moabs
Copper Contributor
Aug 03, 2022

Hilfe beim Makro

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

 

 

excel
Macros and VBA

3 Replies

  • Martin_Weiss's avatar
    Martin_Weiss
    Bronze Contributor
    Aug 04, 2022

    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?

    • Moabs's avatar
      Moabs
      Copper Contributor
      Aug 04, 2022
      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
      • Martin_Weiss's avatar
        Martin_Weiss
        Bronze Contributor
        Aug 04, 2022

        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.