ich bat dich bereits gestern, dass du deinen Code hier ins Forum stellen sollst.
Das würde einiges erleichtern.
Gruss Rainer
das ganze ist recht simpel :-)
Es muss heissen:
Dann tut's auch ;-)
Gruss Rainer
dann hat deine Autoform nicht den Namen "Autoform 1".
Das ist natürlich Voaussetzung da du das Shape ja direkt ansprichst.
Wenn du den ersten Pfeil holst heisst er "Autoform 1", machst du das nochmal dann heisst der Pfeil "Autoform 2".
Das beginnt erst wieder von vorne, wenn du EXCEL neu startest.
Wenn du einen Pfeil hinzufügst, vergib im gleich einen Namen, z.B. "Cursor", über das Namensfeld in der linken oberen Ecke.
Dann kannst du das Teil mit diesem Namen ansprechen:
Code eingefügt mit Syntaxhighlighter 1.16
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
With ActiveSheet.Shapes("Cursor")
If Range("A1").Value > Range("B1") Then
.Rotation = 90#
.Fill.ForeColor.SchemeColor = 50
ElseIf Range("A1").Value < Range("B1") Then
.Rotation = 270#
.Fill.ForeColor.SchemeColor = 53
Else
.Rotation = 0#
.Fill.ForeColor.SchemeColor = 13
End If
End With
End Sub
Den Namen kannst du beim erstellen auch gleich mit VBA vergeben:
Code eingefügt mit Syntaxhighlighter 1.16
Sub Add_Arrow()
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 241.5, 332.25, 77.25, 38.25).Select
Selection.Name = "Cursor"
End Sub
Dann funktioniert das ganze wunderbar:-)
Gruss Rainer