Sub AnzahlSpieleAufsteigend()
 
    ActiveWorkbook.Sheets("Einzelschnitte").Activate
 
    ActiveSheet.Unprotect
 
    Range("A3:G35").Select
 
    Selection.Sort Key1:=Range("C3"), _
                            Order1:=xlAscending, _
                            Header:=xlNo, _
                            OrderCustom:=1, _
                            MatchCase:=False, _
                            Orientation:=xlTopToBottom
 
    Range("A1:A2").Select
 
    ActiveSheet.Protect DrawingObjects:=True, _
                        Contents:=True, _
                        Scenarios:=True
 
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

"Wer etwas will, sucht Wege.
Wer etwas nicht will, findet Gr?nde."