Farbänderung Shapes Variabel
22.02.2018 08:30:20
Okan
ich würde gerne folgenden Code so abändern wollen, dass ich die Shapebezeichnung in VBA eintragen kann wie eine Liste und diese mit dem unten stehenden Code für alle Shapes ausführen.
Public Sub Farbe_LV_210621()
Dim strSuch As String, raFund As Range
strSuch = "LV_210621" 'soll variabel werden
With Worksheets("CAPO_H")
Set raFund = .Columns("B:B").Find(what:=strSuch, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
If raFund.Offset(0, 9) > 999 Then
With CAPO_H.Shapes("LV_210621").Fill 'soll variabel werden
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
With CAPO_H.Shapes("LV_210621").Fill 'soll Variabel werden
.ForeColor.RGB = RGB(0, 200, 0)
End With
End If
Else
MsgBox "Suchbegriff " & strSuch & " in Spalte B nicht vorhanden."
End If
End With
Set raFund = Nothing
End Sub
Ich bedanke mich im Voraus.VG
Okan