Gruppe
Ereignis
Problem
Im Change-Ereignis soll erkannt werden, ob ein Eintrag erfolgte oder ob Werte in einer einzelnen Zelle oder in einem Bereich gelöscht wurden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim bln As Boolean
For Each rng In Target.Cells
If rng.Value <> "" Then bln = True
Next rng
If bln = False Then
Beep
MsgBox "Es wurde gelöscht!"
Else
MsgBox "Es erfolgte ein Entrag!"
End If
End Sub