Ich würde es so machen
04.08.2023 18:05:34
Klexy
Sub Geburtstag_filtern()
Dim GebSpalte As Range, SuchSpalte As Range, s As Range, Von As String
Dim Tag As Integer, Monat As Integer, VonDatum As Date, GebDatum As Date, Heute As Date
Von = InputBox("Geburtstag von..." & vbCr & "Bitte im Format TT.MM. eingeben")
If Von = "" Then
Cells.EntireRow.Hidden = False
Exit Sub
End If
Tag = Left(Von, 2)
Monat = Mid(Von, 4, 2)
VonDatum = DateSerial(Year(Date), Monat, Tag)
Heute = DateSerial(Year(Date), Month(Date), Day(Date))
Set GebSpalte = Cells.Find(What:="Geb. Datum", After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Set SuchSpalte = Intersect(ActiveSheet.UsedRange, GebSpalte.EntireColumn)
' SuchSpalte.Select
For Each s In SuchSpalte
' s.Select
If IsDate(s) = True Then
GebDatum = DateSerial(Year(Date), Month(s), Day(s))
If GebDatum >= VonDatum And GebDatum = Heute Then
s.EntireRow.Hidden = False
Else
s.EntireRow.Hidden = True
End If
End If
Next s
End Sub
EIngeblendet wird jeweils inklusive Suchdatum und inklusive Heute. Kannst du aber im Code ändern.
Du musst das Suchdatum in der geforderten Form eingeben. Das ist technisch gesehen kein Datum, sondern ein Text, ist aber hier einfacher zu verwursten und du willst es ja jahresunabhängig.
Wenn du nix eingibst, wird die Liste wieder komplett eingeblendet.
