Datavalidering / Makro

Ingen har svaret selvom det jo burde være til at overkomme, men har selv fundet løsningen, så her er den. Kan være det kan gøres smartere men har aldrig anvendt VBA før.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("f2"), Target) Is Nothing Then
Select Case Target.Value
Case "Januar": Call Januar
Case "Februar": Call Februar
Case "Marts": Call Marts
Case "April": Call April
Case "Maj": Call Maj
Case "Juni": Call Juni
Case "Juli": Call Juli
Case "August": Call August
Case "September": Call September
Case "Oktober": Call Oktober
Case "November": Call November
Case "December": Call December
End Select
End If
End Sub

Sub Februar()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodFebruray, Operator:=xlFilterDynamic
End Sub
Sub Marts()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodMarch, Operator:=xlFilterDynamic
End Sub
Sub April()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodApril, Operator:=xlFilterDynamic
End Sub
Sub Maj()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodMay, Operator:=xlFilterDynamic
End Sub
Sub Juni()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodJune, Operator:=xlFilterDynamic
End Sub
Sub Juli()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodJuly, Operator:=xlFilterDynamic
End Sub
Sub August()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodAugust, Operator:=xlFilterDynamic
End Sub
Sub September()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodSeptember, Operator:=xlFilterDynamic
End Sub
Sub Oktober()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodOctober, Operator:=xlFilterDynamic
End Sub
Sub November()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodNovember, Operator:=xlFilterDynamic
End Sub
Sub Januar()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodJanuary, Operator:=xlFilterDynamic
End Sub
Sub December()
    ActiveSheet.ListObjects("Tabel_Kontrakt").Range.AutoFilter Field:=6, Criteria1:= _
        xlFilterAllDatesInPeriodDecember, Operator:=xlFilterDynamic
End Sub