Hier füge ich noch einmal das Makro ein:
Sub sortieren()
'
' sortieren Macro
'
' Keyboard Shortcut: Ctrl+s
'
Sheets("Tabelle2").Select
ActiveSheet.Unprotect "???"
Range("A3:G6").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("H3:N6").Select
Selection.Sort Key1:=Range("M3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A10:G13").Select
Selection.Sort Key1:=Range("F10"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("H10:N13").Select
Selection.Sort Key1:=Range("M10"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7:L7").Select
ActiveSheet.Protect Password:="???", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle3").Select
ActiveSheet.Unprotect "???"
Range("A2:C14").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A16:C17").Select
ActiveSheet.Protect Password:="???", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub |