Sub DatumFilter()
Dim DatenDatum As Variant, Puffer As Variant
Dim ZeilenIndex As Long
If ActiveSheet.AutoFilterMode = False Then
Range(Cells(2, 1), Cells(ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row, 2)).NumberFormat = "dd/mm/yyyy"
Range(Cells(2, 1), Cells(ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row, 2)).HorizontalAlignment = xlRight
DatenDatum = Range(Cells(2, 1), Cells(ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row, 2))
Puffer = Range(Cells(2, 1), Cells(ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row, 1))
For ZeilenIndex = 1 To UBound(DatenDatum, 1)
If Day(Date) = Day(DatenDatum(ZeilenIndex, 1)) And Month(Date) = Month(DatenDatum(ZeilenIndex, 1)) Or Day(Date) = Day(DatenDatum(ZeilenIndex, 2)) And Month(Date) = Month(DatenDatum(ZeilenIndex, 2)) Then Puffer(ZeilenIndex, 1) = True
Next ZeilenIndex
Range(Cells(2, Columns.Count), Cells(ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row, Columns.Count)) = Puffer
ActiveSheet.Range(Cells(1, Columns.Count), Cells(ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row, Columns.Count)).AutoFilter Field:=1, Criteria1:=True
Else
ActiveSheet.Cells(1, Columns.Count).AutoFilter
Columns(Columns.Count).Clear
End If
End Sub