Gruppe
Ereignis
Bereich
Change
Thema
Zeilen bei Eingaben leeren
Problem
Bei Eingaben sollen die übrigen Werte der jeweiligen Zeile gelöscht werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Integer, iRowT As Integer, iColT As Integer
If Intersect(Target, Range("A1:D5")) Is Nothing Then Exit Sub
iRowT = Target.Row
iColT = Target.Column
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
For iCol = 1 To iColT - 1
Cells(iRowT, iCol).ClearContents
Next iCol
For iCol = iColT + 1 To 4
Cells(iRowT, iCol).ClearContents
Next iCol
ERRORHANDLER:
Application.EnableEvents = True
End Sub