Zellen löschen in Abhängigkeit anderer Zellen
19.03.2015 21:51:46
René
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
René
Anzeige