Hallöchen,

ich möchte gerne eine Zeile kopieren und diese unterhalb der kopierten Zeile einfügen.
Der Blattschutz muss zuvor aufgehoben werden und ich möchte den Inhalt der Zellen von C bis E von den Eingaben "befreien"
Der Nutzer darf die ursprüngliche Zelle nicht ändern und deshalb wird der Schutz wieder aktiviert. Der Code funktioniert auch soweit ganz gut. Der Nutzer kann einen Button drücken und das Makro legt an der ausgewählten Zelle los. Die Zeile wird kopiert und dann oberhalb eingefügt.
Ich verstehe nicht wieso.

Sub Zeileeinfügen()
' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte teilweise löschen '
ActiveSheet.Unprotect Password:="test"
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
ActiveSheet.Unprotect Password:="test"
lngR = ActiveCell.Row
Range("C" & lngR & ":E" & lngR).ClearContents
Cells(ActiveCell.Row + 1, 1).Select
ActiveSheet.Protect Password:="test"
End Sub

Über einen Tipp wäre ich sehr dankbar!