Trotz Zellschutz Spalte oberhalb einfügen
26.01.2017 10:35:59
Annika
ich habe eine Excel, in die ich per Klick auf einen Button eine Spalte oberhalb einfügen möchte, bei der die Formeln erhalten bleiben.
Das klappt soweit alles.
Jetzt möchte ich aber die Zellen mit den Formeln schützen.
Wenn ich den Zellschutz eingestellt habe, dann auf den Buton "Neue Zelle oberhalb einfügen" klicke, kann aufgrund des Zellschutzes keine Zeile eingefügt werden.
Habt ihr eine Idee?
Im Makro müsste ich einstellen, dass der Zellschutz für den Moment des neue Zelle oberhalb einfügens aufgehoben und danach wieder aktiviert wird.
Wie klappt das?
Mein Makro bis dato:
Sub Zeile_einfügen()
'' Zeile_einfügen Makro
Rows("8:8").Select ' Zeile, in die neue Spalte eingefügt werden soll
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("A8:AZ8").Select
For Each Zelle In Selection
If Zelle.HasFormula = True Then Else Zelle.ClearContents
Next Zelle
Range("B8").Value = Date
Range("A8") = Range("A9") + 1
End Sub
Danke für Eure Hilfe!