Makro Tabelle sortieren Tabellenblatt unabhängig
15.02.2017 10:10:04
Benedikt
ich möchte gerne eine relativ große Tabelle über ein Makro sortieren lassen. Das funktioniert soweit auch, leider jedoch nur für ein Tabellenblatt. Ich möchte das selbe Tabellenblatt aber beliebig oft "dublizieren", sprich neue Tabellenblätter mit dem komplett selben Aufbau/Struktur. Nur die Inhalte der Tabelle ändern sich.
Das ist der aktuelle VBA Code, den ich verwende:
Sub Sortieren()
' Sortieren Makro
Range("AW2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Zoom = 40
ActiveWorkbook.Worksheets("Bodygroup 2").ListObjects("Tabelle11022").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Bodygroup 2").ListObjects("Tabelle11022").Sort. _
SortFields.Add Key:=Range("Tabelle11022[Spalte18]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Bodygroup 2").ListObjects("Tabelle11022").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Wäre super, wenn mir hier jemand weiterhelfen könnte.
Viele Grüße,
Benedikt