Sortierungsmakro
14.03.2018 16:44:06
Jacqueline
ich bin neu hier, habe aber schon einige Tage in diesem Forum verbracht um eine eventuelle Lösung zu meinen Problem zu finden...leider recht erfolglos. Ich habe eine Liste die geordnet werden soll. Im Grunde möchte ich den entsprechenden Bereich, egal in welchen Bereich sortieren lassen nach einer eigenen Liste. Dazu habe ich etwas zusammengefrickelt, was aber leider nicht funktioniert, da es nur auf die abgestimmten Tabellenzellen funktioniert. Das soll aber nicht so sein, sondern egal in welcher Tabelle funktionieren, quasi markieren und via makro sortieren.
Sub sortieren()
' sortieren Makro
ActiveWorkbook.Worksheets("Aktiv").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Aktiv").Sort.SortFields.Add Key:=Range("B2:B27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Full-length,Demo,EP,Single,Live album,Compilation,Split,Video,Boxed Set", _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Aktiv").Sort
.SetRange Range("A2:C27")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D18").Select
End Sub
Könnt ihr mir bitte helfen? Das Problem macht mich nämlich so langsam irre :)
LG
Jacqueline