Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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