Habe eine kleine Herausforderung mit folgender Aufgabe.
Aufgabenstellung:
Möchte zwischen Zeile 13 bis Ende mit einem Makro eine Zeile einfügen, was auch funktioniert (s. Quellcode unten). Mit dem Makro werden dann auch die Formeln aktualisiert. Die Ausgangsformeln zur Berechnung sind in Zelle A13 A14 D13 D14, die nicht gelöscht werden sollen
User soll Zeile 13 und 14 nicht löschen können . Hier kann dann eine Msgbox kommen (Msgbox"Einfügen einer Zeile nicht möglich")
Gibt es hier die Möglichkeit zu sagen, dass das Makro erst ab Zeile 15 durchläuft?
Private Sub cmd_Insert_cell_Click()
Dim loletzte As Long
Dim Zelle As Range
'Blatt entsperren
Sheets("Tabelle1").Unprotect "Test"
loletzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End( _
xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select
Range("A13:A" & loletzte).FillDown
Range("D13:D" & loletzte).FillDown
'Blatt sperren
Sheets("Tabelle1").Protect "Test"
End Sub