Danke schön für die Hilfe, es funktioniert einwandfrei :) Nun habe ich noch ein kleines Problem. Ich habe verschiedene Shapes, deren Text als Filter für unterschiedliche Spalten fungieren. Habe versucht das Ganze zu übertragen, allerdings bekomme ich eine Fehlermeldung (fett markiert), wenn ich es wie folgt umsetze:
Private myText2 As String
Sub RoundedRectangleCategory_Click()
ToggleShapeColor
Application.ScreenUpdating = False
If Worksheets("Risk Category Checklist").FilterMode Then
Worksheets("Risk Category Checklist").Range("$A$5:$T$500").AutoFilter , Field:=6
Else
Worksheets("Risk Category Checklist").Range("$A$5:$T$500").AutoFilter , Field:=6, Criteria1:=myText2
End If
End Sub
Private Sub ToggleShapeColor()
Dim Shp2 As Shape
Set Shp2 = ActiveSheet.Shapes(Application.Caller)
myText2 = Shp2.TextFrame2.TextRange.Characters.Text
'vgl. Elemente des Shape-Objekts
'TextFrame für den den Textrahmen
'TextFrame2 enthält den Text im Textrahmen
With Shp2
If .Fill.ForeColor = RGB(56, 93, 138) Then
.Fill.ForeColor.RGB = RGB(0, 176, 80)
Else
.Fill.ForeColor.RGB = RGB(56, 93, 138)
End If
End With
End Sub
|