Ich habe eine Arbeitsmappe mit sechs Registern
Damen;herren;kinder,Junioren;Teenies;Sonstige
Beim Makroaufzeichnen Damen bekomme ich das gleiche Makro nicht in Teenies ausgeführt
Wie kann ich dies beheben
Danke für die Antworten
Gerd
Sub Sort1()
' Sort1 Makro
Range("A1:D20").Select
ActiveWorkbook.Worksheets("Damen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Damen").Sort.SortFields.Add Key:=Range("D1:D9"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Damen").Sort
.SetRange Range("D1:D9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C2").Select
End Sub
In den Registern Herren, Kinder, Teenies soll das gleiche Makro laufen geht aber nicht !
Danke für die Hilfe
Sub Sort1()
' Sort1 Makro
Range("A1:D20").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("D1:D9"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("D1:D9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C2").Select
End Sub