VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

DatumZeit

Bereich

Liste

Thema

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

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