moin,

warum meckert excel beim aufruf der methode, dass ein objekt erforderlich seì???

Sheets("Mitarbeiter").Select
ActiveWorksheet.Unprotect ("13B2003")

Rows("5:5").Copy

Ende_finden (9)

Selection.Insert Shift:=xlDown

Range("A5:K5").ClearContents

' Sortierung
Range("A9").Select
Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

ActiveWorksheet.Protect = "13B2003"

grüße
basti