Fehler bei Kopieren von markierter Zeile
markierter
ich verzweifel gerade an folgendem Problem. In einem Excel mit teilweise geschützten Zellen (wegen Formeln und Verweisen auf andere Arbeitsblätter) möchte ich, dass jeder neue Zeilen einfügen kann. Excel beschwert sich aber, wenn ich geschützte Spalten markiere und erst recht verschiebe, um die neue Zeile einzufügen. Deswegen per VBA, um den Schutz aufzuheben:
Sub Test()
' Worksheets("Test1").Unprotect Password:="test"
Dim tst As String
tst = ActiveCell.Row
MsgBox tst
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
' Worksheets("Test1").Protect Password:="test"
End Sub
Die Codezeilen von Dim bis MsgBox sind nur zur Sicherheit für mich, aber im Prinzip dachte ich, die Sub markiert die komplette Zeile, in der sich meine aktive Zelle befindet, markiert sie, kopiert sie und fügt sie eins weiter unten noch mal ein.
Allerdings kopiert er die falschen Inhalte. Er fügt zwar die Zeile ein und kopiert auch das Datum, das in Spalte A steht, korrekt. Aber die dahinterliegenden Formeln in den anderen Spalten zieht er offenbar aus der Zeile darüber.
Was mache ich falsch?
Danke,
juliusmk