Guten Morgen,
ich habe folgendes problem. Ich möchte aus einem Blatt eine Zeile in ein anderes Blatt kopieren, welches aber geschützt ist. Das Makro soll den Schutz jedoch aufheben und nachher wieder drauf tun. Funktioniert nur leider nicht so. Wo liegt mein Fehler? vielen Dank im voraus.
Set ws = ActiveSheet
Dim IDvalue As Variant
Range("E60:BY60").Select
Selection.Copy
Sheets("Project_sheet").Select
Sheets("Project_sheet").Unprotect
Range("C9").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Application.CutCopyMode = False
ws.Delete
Selection.RowHeight = 15
' lösche zeileninhalt C3
Dim X As Range
Set X = Columns(3).Find(Range("C3").Value, after:=Range("C8"), LookIn:=xlValues, lookat:= _
xlWhole, MatchCase:=True)
If Not X Is Nothing Then If X.Row > 8 Then X.EntireRow.Delete shift:=xlShiftUp
Application.DisplayAlerts = True
Sheets("Project_sheet").Select.Protect
End Sub