Command-Button Nummerierung bestimmen
14.11.2007 15:39:00
Markus
achja,
ich erstelle Buttons via VBA und jedesmal werden den Buttons neue laufende Nummern zugewiesen (irgendwo zwischen 1 und 20). Da sich bestehende Makros aber auf die Buttons beziehen, muss die Nummerierung vorgegeben sein. Ich erstelle die Buttons wie folgt
links1 = 550
runter = 1
runter2 = 22
weite = 100
Hohe = 20
Dim objOLEObject As OLEObject
Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=links1, Top:=runter, Width:=weite, Height:=Hohe)
objOLEObject.Object.Caption = "Zum Index"
runter = runter + runter2
Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=links1, Top:=runter, Width:=weite, Height:=Hohe)
objOLEObject.Object.Caption = "GB/Maßnahmen"
runter = runter + runter2
' die routine wiederholt sich dann mehrmals
Mit einer vorangegangene Routine habe ich alle Buttons im Blatt gelöscht. Trotzdem vergibt er die Nummern recht wahllos.
Wie kann ich erreichen, dass den buttons bestimmte Nummern zugeordnet bekommen?
Danke und Gruß von der Ostsee