Aktives Tabellenblatt auswählen
04.02.2019 11:01:32
Dimi
ich habe eine wahrscheinlich recht einfach zu lösende Frage.
Ich habe ein Makro mit dem Macrorecorder aufgenommen das eine Tabelle sortieren soll. Das funktioniert auch tadellos. Allerdings ist in dem Makro das Tabellenblatt ("Beispiel1") hinterlegt. Wenn ich ein zweites Tabellenblatt anlege ("Beispiel2") sortiert mein Makro immer nur das erste Blatt. Besteht die Möglichkeit untenstehendes Makro so umzuschreiben das es unabhängig vom Namen immer das aktiv ausgewählte Tabellenblatt sortiert.
Die Tabellenblätter sind alle exakt gleich aufgebaut.
Liebe Grüße
Dimi
Sub Sortieren()
' Sortieren Makro
' Tastenkombination: Strg+s
Range("B5:N500").Select
Range("B500").Activate
ActiveWorkbook.Worksheets("Beispiel1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Beispiel1").Sort.SortFields.Add Key:=Range("E5:E500"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Beispiel1").Sort.SortFields.Add Key:=Range("D5:D500"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Beispiel1").Sort
.SetRange Range("B5:N500")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub