Thema: Allen Daten löschen, wenn das Jahr nicht der Vorgabe entspricht

StandardModule: Modul1

Sub DeleteAndPrint()
   Dim vYear As Variant
   Dim iWks As Integer, iRow As Integer, iRowL As Integer
   vYear = InputBox("Jahr:", , "2004")
   If vYear = "" Then Exit Sub
   For iWks = ActiveSheet.Index + 1 To Worksheets.Count
      With Worksheets(iWks)
         iRowL = .Cells(Rows.Count, 1).End(xlUp).Row
         For iRow = iRowL To 1 Step -1
            If Year(.Cells(iRow, 1).Value) <> CInt(vYear) Then
               .Rows(iRow).Delete
            End If
         Next iRow
         .PrintPreview
      End With
   Next iWks
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Liste