Ach nö, es funktioniert irgendwie doch nicht. Also nochmal von vorne:
Private myText2 As String
Sub RoundedRectangleCategory_Click(ByVal Target As Range)
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:=myText
End If
End Sub
Private Sub ToggleShapeColor(ByVal Target As Range)
Dim Shp2 As Shape
Set Shp2 = ActiveSheet.Shapes.Range(Array("Rounded Rectangle 42", "Rounded Rectangle 44" _
, "Rounded Rectangle 45", "Rounded Rectangle 46"))
myText2 = Shp2.TextFrame2.TextRange.Characters.Text
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
Ich bekomme nun die Fehlermeldung "Argument not optional!". Und ich kann den Code nicht mehr als Macro zuweisen. Woran liegt das und wie kann ich das beheben? Schon mal danke... Und sry wg den blöden Fragen, ich gebe unumwunden zu, dass ich überhaupt keine Ahnung von VBA habe...
|