Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Filtern()
   Dim wks As Worksheet
   Dim iRow As Integer, iRowT As Integer
   Set wks = ActiveSheet
   iRow = 2
   iRowT = 2
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   Columns(3).NumberFormat = "dd.mm.yy"
   wks.Range("A1:C1").Copy Range("A1:C1")
   Do Until IsEmpty(wks.Cells(iRow, 1))
      If Month(wks.Cells(iRow, 3).Value) = _
         Month(Date) Then
         Range(Cells(iRowT, 1), Cells(iRowT, 3)).Value = _
            wks.Range(wks.Cells(iRow, 1), wks.Cells(iRow, 3)).Value
         iRowT = iRowT + 1
      End If
      iRow = iRow + 1
   Loop
End Sub

    

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