MSGBox
08.11.2022 14:58:38
Harald
ich benötige für eine Excel-Datei, die von vielen Personen genutzt wird, eine Sicherheitsabfrage, bevor eine Zelle gelöscht wird.
Im Netz habe ich ein Script gefunden, das voll zutrifft.
Möchte ich einen Zellinhalt mit entf löschen, kommt die Sicherheitsabfrage.
Zu meinem Problem:
Wähle ich mehr als eine Zelle aus und lösch den Inhalt, kommt es zu einer Fehlermeldung Laufzeitfehler 13
Kann mir irgendjemand weiterhelfen?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then
If Not MsgBox("Wollen Sie die Zelle wirklich löschen?", _
vbYesNoCancel + vbQuestion) = vbYes Then
On Error Resume Next
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
On Error GoTo 0
End If
End If
End Sub
Anzeige