Hallo,
ich habe mich an einem VBA-Code versucht, der leider nicht ganz funktioniert. Ich möchte, dass ein Objekt in dem Tabellenblatt "Sheet1", das ich "01" benannt habe, eine bestimmte Farbe annimmt. Die Farbe ist abhängig von einem Wert, der im Tabellenblatt "Sheet2" derselben Excel-Datei in Zelle A1 steht. Leider funktioniert es bei mir nur, wenn das Objekt, das sich verfärben soll, und der Wert, auf dem die Farbe basiert, im selben Tabellenblatt sind. Ich habe jetzt schon ewig herumprobiert, finde meinen Fehler aber leider nicht. Hier mein Code, der funktioniert, wenn sich beide Dinge in demselben Tabellenblatt befinden:
Option Explicit
Private Sub Worksheet_Change (ByVal Target As Range)
Dim K As Shape
If Target.Address(0, 0) = "A1" Then
Set K = Me.Shapes("01")
K.Fill.Visible = msoTrue
K.Line.Visible = msoFalse
If [A1] <= 10 And [A1] >= 0 Then
K.Fill.ForceColor.SchemeColor = 10
ElseIf [A1] <= 20 And [A1] > 10 Then
K.Fill.ForceColor.SchemeColor = 12
Else
K.Fill.ForeColor.SchemeColor = 1
End If
End If
End Sub
Ich hoffe, mir kann jemand helfen...
Vielen Dank schon einmal!
Viele Grüße
Christine
|