VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Geburtstage eines vorzugebenden Monats in neue Tabelle

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

    


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