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:
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
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
- Dim activeTable As String
- Dim Table_1 As Object
- activeTable = ActiveSheet.ListObjects(1)
- Set Table_1 = ActiveSheet.ListObjects(1)
- ActiveSheet.Unprotect
- ActiveSheet.ListObjects(activeTable).ShowAutoFilterDropDown = True
- With ActiveWorkbook.Worksheets(ActiveSheet.Name).ListObjects(activeTable).Sort
- .SortFields.Clear
- .SortFields.Add2 Key:=Range("Table_1[[#Headers],[#Data],[Termin]]"), _
- 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“ ()