nicht zusammenhängende Spalten sortieren
Peter
bei der Recherche zum Sortieren, konnte ich mir folgenden Code zusammenbasteln, der auch funktioniert. Nun möchte ich aber, dass die Spalte A mitsortiert wird, aber nicht die Spalte B. Also zusammenfassend: Sortiere nach Spalte J, innerhalb davon nach Spalte G ,bei der Sortierung nimm die Spalten A sowie C bis J. B darf NICHT mitsortiert werden, da hier eine feststehende Seiten-Nummerierung angegeben ist! Es ist aber nicht möglich, die Spalten zu tauschen, damit der Sortierbereich zusammenhängend ist!
Sub KPL_sortieren()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("C4:J100").Select
Selection.Sort Key1:=Range("J4"), Order1:=xlDescending, Key2:=Range("G4") _
, Order2:=xlDescending, Key3:=Range("D4"), Order3:=xlDescending, Header _
:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("C4").Select
Application.ScreenUpdating = True
End Sub
Für jeden Lösungsvorschlag bin ich dankbar.
Gruß
Peter