Liebe VBA Gemeinde
Ich bekomme das einfach nicht hin, dass beim folgenden Script (bei doppelclick Zeilen einfügen) beim Kopiervorgang von der darüberliegenden Zeile welche mit Formel versehen ist, die Formel gleich mitkopiert und einfügt.
Was muss ich da noch ändern, damit die Formeln mitkopiert werden? Vielen Dank um jede Hilfe!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect Password:="pw"
Dim zeilenanzahl As Integer
zeilenanzahl = InputBox("Wieviel Zeilen?")
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Cancel = True
ActiveSheet.Protect Password:="pw"
End Sub
|