ich möchte per VBA aus dem 1. Tabellenblatt eine Scrollbar im 2. Tabellenblatt anlegen und dieser auch schon einige Eigenschaften mitgeben.
Dafür habe ich folgenden Code erstellt:
Sub TEST()
With Worksheets(2)
OLEObjects.Add(ClassType:="Forms.ScrollBar.1", Link:=False, _
DisplayAsIcon:=False, Left:=1080, Top:=44.25, Width:=120, Height:= _
46.5).Name = "scrl"
.scrl.Select
.scrl.LargeChange = 20
.scrl.Max = 2200
End With
MsgBox ("Scrollbar angelegt")
End Sub
Es ist nun so, dass ich das Script starte, die Scrollbar wird angelegt und es erscheint die Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Ignoriere ich den Fehler und starte das Makro erneut, dann läuft es durch, jedoch habe ich eine zweite Scrollbar.
Wieso funktioniert mein Vorhaben nicht im ersten Durchlauf?