Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Hey all,
Ich habe Monatsnamen von Q3-Q14 stehen ( Januar, Februar, März, usw. )
Jetzt möchte ich per DoubleClick auf dem Monatsnamen das er mir die Tabelle
filtert nach dem Geburtstag für den Monat.
Die Geburtstage sind aber im Datum zB. 01.01.1990 formatiert.
Muster: Code der funktioniert für Januar
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Q3:Q14")) Is Nothing Then
With Target
Cancel = True
MsgBox "Zelle " & Target.Address & " wurde doppelgeklickt." ' das kann weg, ist nur zum Test
Range("F:F").AutoFilter Field:=1, _
Operator:=xlFilterDynamic, _
Criteria1:=xlFilterAllDatesInPeriodJanuary
' hier Aktionen mit der Zelle
End With
' Call Filtern
'Makroaufruf
End If
End Sub
Das funktioniert soweit, aber nur für den Januar.
ich müsste in Codezeile
Criteria1:=xlFilterAllDatesInPeriodJanuary
immer in den Monat ändern.
zB. dann auf
Criteria1:=xlFilterAllDatesInPeriodMai
Criteria1:=xlFilterAllDatesInPeriodAugust
usw.
Dann filtert er mir auch die anderen Monate genau.
Ich würde das gerne ohne die Änderungen in der Codezeile haben.
Criteria1:=xlFilterAllDatesInPeriodJanuary
Was und wie müsste geändert werden ???
Hoffe konnte mich gut genug ausdrücken.
Ich sage jetzt schon mal vielen Dank für die Hilfe und Bemühungen bei der Änderung von dem Code.
Mfg
Dieter