Gruppe
DatumZeit
Problem
Wie kann ich aus einer Personalliste die Geburtstage eines bestimmten Monats in eine neue Tabelle übertragen?
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