Makro unabhängiger Tabellennanme
31.01.2018 07:18:55
Norbert
wie kann ich nachfolgendes Makro ändern, sodass es auch unabhängig zum Bezug "Projekte" (kann jedesmal einen anderen Namen haben, der Aufbau der Tabelle ist jedoch immer gleich) läuft?
ActiveWorkbook.Worksheets("Projekte").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Projekte").Sort.SortFields.Add Key:=Range("A2:A46" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Projekte").Sort.SortFields.Add Key:=Range("B2:B46" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Projekte").Sort.SortFields.Add Key:=Range("C2:C46" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Danke für eine Lösung
Gruss Norbert