Methode Range für Objekt _global fehlgeschlagen bei Sortiermakro

  • Excel

    Methode Range für Objekt _global fehlgeschlagen bei Sortiermakro

    Neu

    Hallo zusammen,

    ich habe folgendes Problem in Excel. Ich möchte gerne ein Makro, welches die z.B die Datumsspalte einer aktiven Tabelle sortiert, erstellen und dann einem Steuerelement zuweisen. Bei der Ausführung des Codes gibt Excel mir den o.a. Fehler " Die Methode Range ist für das Objekt fehlgeschlagen" zurück. Der Code sieht wie folgt aus:

    Quellcode

    1. Dim activeTable As String
    2. Dim Table_1 As Object
    3. activeTable = ActiveSheet.ListObjects(1)
    4. Set Table_1 = ActiveSheet.ListObjects(1)
    5. ActiveSheet.Unprotect
    6. ActiveSheet.ListObjects(activeTable).ShowAutoFilterDropDown = True
    7. With ActiveWorkbook.Worksheets(ActiveSheet.Name).ListObjects(activeTable).Sort
    8. .SortFields.Clear
    9. .SortFields.Add2 Key:=Range("Table_1[[#Headers],[#Data],[Termin]]"), _
    10. SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal


    In Zeile 9 tritt nun der Fehler auf. Ich habe schon versucht die aktuell aktive Tabelle als Objekt zu definieren, allerdings hat das nicht weitergeholfen. ?(

    Hat jemand einen Tipp der mir hier weiterhelfen könnte? ^^

    Gruß

    DXD4

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „DXD4“ ()