Gruppe
Ereignis
Problem
Wie kann ich bei Eingabe eines Wertes in einem definierten Bereich die übrigen in diesem Bereich bereits vorhandenen Werte löschen?
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