Auslesen statt zwischenspeichern
13.12.2012 10:30:28
Marc
Hallo!
Bau mal dies ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 4, 7, 10: Call DoFilter(CStr(Cells(1, Target.Column)), Cells(Target.Row, 1))
Case 5, 8, 11: Call DoFilter(CStr(Cells(1, Target.Column - 1)), Cells(Target.Row, 2))
'Case 7: Call DoFilter("Bereich 2", Cells(Target.Row, 1))
'Case 8: Call DoFilter("Bereich 2", Cells(Target.Row, 2))
'Case 10: Call DoFilter("Bereich 3", Cells(Target.Row, 1))
'Case 11: Call DoFilter("Bereich 3", Cells(Target.Row, 2))
End Select
End Sub
Private Sub DoFilter(strBereich As String, datDatum As String)
Worksheets("Werbeartikel").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strBereich
Selection.AutoFilter Field:=3, Criteria1:=datDatum
End Sub