Laufzeitfehler 1004
andreas
beim folgenden Code bekomme ich einen Laufzeitfehler beim folgenden Range
Sheets("Kapazitätsübersicht MF BER").Select
Range("B26").Select
habe keine Ahnung warum.
Danke für eure Hilfe
Private Sub CommandButton5_Click()
ActiveSheet.Unprotect ("")
Sheets("Kapazitätsübersicht MF").Select
Rows("26:500").Select
Selection.Sort Key1:=Range("K26"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.CutCopyMode = False
Sheets("Kapazitätsübersicht MF").Range("B26:Q500").Copy
Sheets("Kapazitätsübersicht MF BER").Select
Range("B26").Select
ActiveSheet.Paste
Sheets("Kapazitätsübersicht MF").Select
Range("B26").Select
ActiveSheet.Protect ("")
End Sub