Akktive Zeile Bereich farblich markieren
15.05.2020 22:28:14
Boris
ich habe folgenden Code mit dem ich per Abfrage und nach einer Bestätigung die Zeile der aktiven Zelle löschen lassen.
Sub Zeile_löschen()
ActiveSheet.Unprotect
If MsgBox("Ganze Zeile wirklich löschen?", vbQuestion + vbYesNo, "Markierte Zeile löschen") = _
_
vbYes Then
ActiveCell.EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub