Als Antwort auf diesen Beitrag
Hi,
xlFilterAllDatesInPeriodJanuary ist eine Enumeration = 21 und dann folgen die anderen Monate; angenommen du hast die Monate aufsteigend:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const cMonatskonstante = 21
Dim lngMonat As Long
If Not Intersect(Target, Range("Q3:Q14")) Is Nothing Then
lngMonat = Target.Row - 2 + cMonatskonstante
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:=lngMonat 'xlFilterAllDatesInPeriodJanuary
' hier Aktionen mit der Zelle
End With
' Call Filtern
'Makroaufruf
End If
End Sub
ansonsten must du die gefundenen Codes anpassen auf 21(Jan)..
hth
Ulf