Habe diesen Code im Forum gefunden und versuche mich nun daran ihn so abzuändern ,das wenn ein Zellenbereich zum löschen ausgwählt ist und dieser Bereich mit vbYes bestätigt wird, ebenso eine Zelle/Zellen(gleiche Target Zeilen) zB. in Spalte H gelöscht wird.
Hat jemand einen Ansatz dafür ?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim n As Long, s1 As String, s2 As String
If Target.Resize(1, 1).Value = "" Then
s1 = "": s2 = ""
If Target.Count > 1 Then
s1 = "en"
s2 = "n"
End If
n = MsgBox("Soll" & s1 & " die Zelle" & s2 & " [" & Target.Address(False, False) & _
"] wirklich gelöscht werden?", 32 + vbYesNo + vbDefaultButton2, "Question")
If n = vbNo Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End Sub
Vielen Dank René