Gruppe
Ereignis
Problem
Bei Eingaben sollen die übrigen Werte der jeweiligen Zeile gelöscht werden.
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