Hallo,
ich will in einem passwortgeschützten Tabellenblatt eine neue Zeile einfügen, dabei sollen nur die Formeln der aktiven Zeile der Spalten 6 bis 8 und 27-29 in eine neue Zeile kopiert werden und zwar unmittelbar unter die aktive Zeile.
Die Dateneingabe beginnt immer erst in Zeile 6 / Spalte 1, endet Zeile X / Spalte 29.
Im gesamten Dateneingabenbereich sind bedingte Formatierungen und Gültigkeitbeschränkungen hinterlegt.
Bei Verwendung des Makrorecorders wird jeweils die darüberliegende Zeile kopiert, das funktioniert soweit. Nur wird beim Einfügen einer neuen Zeile in Zeile 6 leider die Tabellenbeschriftung in Zeile 5 übernommen, dass soll so nicht sein. Leider ist es somit auch nicht möglich eine "neue Zeile 6" anzulegen.
Wer kann helfen?
Sub einfügen()
ActiveSheet.Unprotect Password:="xxx"
zeile = ActiveCell.Row
Rows(zeile).Select
Selection.Insert Shift:=xlDown
Range(Cells(zeile - 1, 6), Cells(zeile - 1, 8)).Copy Range(Cells(zeile, 6), Cells(zeile, 8)) _
_
Range(Cells(zeile - 1, 27), Cells(zeile - 1, 29)).Copy Range(Cells(zeile, 27), Cells(zeile, _
_
29))
Cells(zeile, 4).Select
ActiveSheet.Protect Password:="xxx", _
AllowFiltering:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub
mfg
Erik