auf Userform1 ist eine Grafik (Image) "Pfeil1". Dieser "Pfeil1" soll sich bei Klick auf den Pfeil1 drehen. Mein Makro zeigt einen Fehler: "Laufzeitfehler 9", Index außerhalb des gültigen Bereichs" und Zeile
wird gelb markiert.
Hier mein Code und meine Musterdatei:
Private Sub Pfeil1_Click()
Dim objShp As Shape
Set objShp = Sheets("Userform1").Shapes("Pfeil1")
objShp.Rotation = objShp.Rotation + 45
Set objShp = Nothing
End Sub
Die Datei https://www.herber.de/bbs/user/117209.xlsm wurde aus Datenschutzgründen gelöscht
Mir der Bitte um Hilfe, grüßt
Dieter(Drummer)