VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Eingabe andere Werte löschen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change