Hallo allerseits!
Suche mal wieder verzweifelt nach Hilfe und hoffe, dass ihr mir bei folgender Angelegenheit helfen könnt. Habe in einem Excelsheet mehrere Formen, denen ich per Formel einen Text zugewiesen habe. Nun möchte ich gerne, dass beim Anklicken der jeweiligen Form Filter gesetzt werden (in einem anderen Excelsheet), die als Filterkriterium den Text der Form verwenden. Hoffentlich ist das einigermaßen verständlich. Schon mal vielen Dank für die Hilfe!
Viele Grüße,
Corina
P.S.: Habe mit meinen nicht vorhandenen VBA-Kenntnissen versucht das Problem zu lösen, bekomme aber nur Fehlermeldungen. Das Ganze sieht wie folgt aus:
Option Explicit
Sub Shape_Click()
Application.ScreenUpdating = False
Dim Shp As Shape
Set Shp = ThisWorkbook.ActiveSheet.Shapes.Range(Array("Name1", "Name2", "Name3"))
With Shp
If Worksheets("Sheet3").FilterMode Then
Worksheets("Sheet3").Range("A:T").AutoFilter , Field:=4
Else
Worksheets("Sheet3").Range("A:T").AutoFilter , Field:=4, Criteria1:="=" & Shp.Text
End If
End With
Application.ScreenUpdating = True
End Sub
|