Macro auf aktives Tabellenblatt anwenden
16.12.2020 12:04:56
wennerfaellt
ich habe ein Makro aufgezeichnet, mit dem ich Tabellen sortieren will. Dieses habe ich in Tabelle 1, die heißt "7511 1", aufgezeichnet:
Sub FMsortieren()
' FMsortieren Makro
' Tastenkombination: Strg+x
Columns("B:XFD").Select
ActiveWorkbook.Worksheets("7511 1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("7511 1").Sort.SortFields.Add2 Key:=Range("B8:G8") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("7511 1").Sort
.SetRange Range("B1:G48")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Jetzt sortiert die mir aber nur die Tabelle 1. Sie soll aber der Reihe nach auch die anderen Tabellen, wenn ich sie anklicke sortieren. Ich habs versucht mit 'Worksheets("7511 1")' durch 'ActiveWorksheet' ersetzt, im 2. Versuch 'ActiveWorkbook' vorweg gelöscht. Aber es funktioniert nicht.
Kann mir bitte jemand helfen?
Danke