Hallo
Ich habe mir ein Makro aufgezeichnet und möchte es jetzt in jede weiteren Mappe verwenden, wie muss ich dieses abändern das es für die Aktive Mappe Funktioniert.
Das Makro ist jetzt nur für Mappe KW48
ActiveWorkbook.Worksheets("KW48").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("KW48").Sort.SortFields.Add Key:=Range("C59:C230") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="F,S,N", _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("KW48").Sort
.SetRange Range("B58:C230")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
|