Gruppe
DatumZeit
Bereich
Geburtstag
Thema
Geburtstage eines vorzugebenden Monats in neue Tabelle
Problem
Wie kann ich aus einer Personalliste die Geburtstage eines bestimmten Monats in eine neue Tabelle übertragen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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