unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
With Shapes("Autoform 1")
If Range("A1").Value > Range("B1") Then
.Rotation = 90#
.Fill.ForeColor.SchemeColor = 50
ElseIf Range("A1").Value
Es funktioníert aber nicht. Ich bekomme einen Laufzeitfehler. "Das Element mit dem angegebenen Namen wurde nicht gefunden".
Hat jemand eine Idee, wogegen ich die "Autoform 1" austauschen muss?
Danke!
Viele Grüße
Markus