Guten Morgen,
ich möchte gerne, dass mit dem anklicken eines Shapes, dieses die Farbe ändert und in einem anderem Arbeitsblatt ein Filter gesetzt wird, das sich am Textinhalt des Shapes orientiert. Habe folgende 2 Code-Schnipsel, jeweils zum Filtern und zum Farbe ändern, weiß aber nicht, wie ich sie zusammenbringen soll. Außerdem weiß ich leider nicht, wie der Shapeinhalt ausgelesen und weiterverwendet werden kann... Danke für die Hilfe!
Sub RoundedRectangle199_Click()
Application.ScreenUpdating = False
If Worksheets("Sheet3").FilterMode Then
Worksheets("Sheet3").Range("$A$5:$T$500").AutoFilter , Field:=4
Else
Worksheets("Sheet3").Range("$A$5:$T$500").AutoFilter , Field:=4, Criteria1:="Extern"
End If
Application.ScreenUpdating = True
End Sub
Private Sub ToggleShapeColor()
Dim Shp As Shape
Set Shp = ActiveSheet.Shapes(Application.Caller)
With Shp
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
|