Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

Liste

Problem

In den Folgeblättern sollen alle Zeilen mit Datumsangaben in Spalte A gelöscht werden, bei denen das Jahr nicht dem vorgegebenen entspricht.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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