Hallo zusammmen,
ich habe vor kurzem mit VBA angefangen und jetzt meine erste richtige Herausforderung.
Ich möchte mit 2 Abhängigkeiten die Farbe einer Form ändern.
Zum einen soll überprüft werden ob in einer bestimmten Zelle auf dem selben Blatt ein Datum steht, das funktioniert, zum anderen soll eine Zelle auf einem anderen Blatt auf Inhalt geprüft werden, das geht leider nicht inn meinem Code.
Ich habe den funktionierenden Teil um " And (Worksheets("Analyse").Range("B27").Value) = True" erweitert, aber das geht so leider nicht
Sub FarbeRotGrün_QA()
Application.ScreenUpdating = False
If IsDate(Worksheets("Liste").Range("L50").Value) = True And (Worksheets("Analyse").Range("B27").Value) = True Then
Worksheets("Liste").Shapes.Range(Array("Rechteck: abgerundete Ecken 1")).Select
'ActiveSheet.Shapes.Range(Array("Rechteck: abgerundete Ecken 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(146, 208, 80)
.Transparency = 0
.Solid
End With
End If
Application.ScreenUpdating = True
End Sub
Kann mir jemand sagen was ich falsch mache und wie ich das löse.
Danke mal schon im Voraus
Gruß Julia
|