Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim iCol As Integer
   For iCol = 2 To 17
      With Worksheets("Tabelle1")
         If .Cells(3, iCol).Value < Date - 5 Then
            .Range(.Cells(4, iCol), .Cells( _
               Rows.Count, iCol)).ClearContents
         End If
      End With
   Next iCol
End Sub

    

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