AW: MSGBox wenn Zelleninhalt geleert wurde?!
26.08.2008 16:29:14
Luschi
Hallo Tom,
mit dieser Version kann die Löschung auch wieder rückgängig gemacht werden:
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, "F r a g e...")
If n = vbNo Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End Sub
Auch wenn es ziemlich gewaltig aussieht, aber damit wird die Löschung rückgängig gemacht, wenn es eine einzelne Zelle oder einen ganzen Zellblock betrifft.
Gruß von Luschi
aus klein-Paris