Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Geburtstage eines vorzugebenden Monats in neue Tabelle

Gruppe

Geburtstag

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

    

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