Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen

Gruppe

Change

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.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

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