Zeile kopieren und Inhalt Zelle löschen
06.01.2022 11:40:07
Ralf
Mein Code, fügt eine Zeile ein und übernimm die Formatierung, das funktioniert auch super.
Nun soll aber zusätzlich noch in der neuen Zeile, der Inhalt der Zelle E gelöscht werden.
Anbei der Code:
-------------------------------------------------
'Zeile einfügen
Sub Schaltfläche8_Klicken()
ActiveSheet.Unprotect Password:="1234"
Dim Zelle As Range
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
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select
ActiveSheet.Protect Password:="1234", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Könnt Ihr mir helfen?
Freundliche Grüsse
Ralf
Anzeige