Frage zu Makroerstellung
25.07.2013 15:40:24
Brat
ich habe mit der Hilfe dieses Forums ein Makro geschrieben, welches es erlaubt, eine Autoform _
einzufärben, sobald ein bestimmter Wert in einer Zelle angezeigt wird (z.B. die Form wird rot, _
wenn der Zellenwert "rot" ist. Der Code sieht wie folgt aus:
With Range("D33")
If .Value = "grün" Then
ActiveSheet.Shapes("United Kingdom").Fill.ForeColor.SchemeColor = 3
Else
ActiveSheet.Shapes("United Kingdom").Fill.ForeColor.SchemeColor = 10
End If
End With
End Sub
In diesem Fall steht in Zelle D33 "rot"
Dieser Code funktionert soweit.
Gebe ich nun an, dass Zelle "D33" sich den Wert von einem anderen Tabellenblatt ziehen soll (Formel: =Blatt1!H33), funktioniert das Makro nicht mehr und ein Laufzeitfehler wird angezeigt, welcher sagt, dass das Makro die Form nicht findet.
Meine Frage ist nun, wie ich es erreichen kann, dass das Makro trotz einer simplen Verknüpfung von 2 Tabellenblättern funktioniert.
Vielen Dank im Vorraus!