Hallo,
ich hatte gestern schon einmal einen Thread aufgemacht, bei dem es um dasselbe Programm aber ein anderes Problem ging. Ich habe in Tabelle1 ein Objekt, das sich verfärben soll, wenn in Tabelle2 in Zelle A1 ein Wert verändert wird. Das funktioniert auch danke der Hilfe hier im Forum mit dem unten stehenden Code. Allerdings nur, wenn ich den Wert in Zelle A1 manuell ändere oder manuell eine andere Zahl hineinkopiere. Wenn ich den Wert in der Zelle automatisch durch ein Makro, das die Zahl aus einer anderen Zelle kopiert und in A1 einfügt, ändere, verfärbt sich das Objekt nicht mehr, obwohl die neue Zahl in A1 steht. Hat jemand eine Idee, was ich machen könnte, damit sich das Objekt auch verfärbt, wenn der Wert in A1 automatisch geändert wird?
Hier ist der Code, mit dem es (nur) durch eine manuelle Änderung der Zelle funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim K As Shape
If Target.Address(0, 0) = "A1" Then
Set K = Tabelle1.Shapes("01")
K.Fill.Visible = msoTrue
K.Line.Visible = msoFalse
If [A1] <= 10 And [A1] >= 0 Then
K.Fill.ForeColor.SchemeColor = 10
ElseIf [A1] <= 20 And [A1] > 10 Then
K.Fill.ForeColor.SchemeColor = 12
Else
K.Fill.ForeColor.SchemeColor = 1
End If
End If
End Sub
Viele Grüße
Christine
|