Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Bei Eingabe andere Werte löschen
Gruppe
Change
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