Gruppe
Ereignis
Bereich
Change
Thema
Bei Eingabe andere Werte löschen
Problem
Wie kann ich bei Eingabe eines Wertes in einem definierten Bereich die übrigen in diesem Bereich bereits vorhandenen Werte löschen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Intersect(Target, Range("A1:E1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
For Each rng In Range("A1:E1").Cells
If Intersect(rng, Target) Is Nothing Then
rng.ClearContents
End If
Next rng
ERRORHANDLER:
Application.EnableEvents = True
End Sub