---

Hallo Rabbit 007,

versuch's mal so:

Code:

---

Public Sub test()
    Dim objOLEObject As OLEObject
    Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Left:=100, Top:=100, Width:=100, Height:=30)
    objOLEObject.Object.Caption = "Start"
End Sub

---

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo RogerRabbitVII;-)

hm, ich weiss nicht so recht, beschreib' doch einfach mal, was du genau vorhast ...
Eigentlich geht es genauso wie du hier gepostet hast,
mir scheint aber du willst den Code zur Laufzeit erzeugen, wie den Button eben auch?

Warum ich jetzt so dumm frage ist, du selbst schreibst was von 'Laie';-) ich frag' nur vorsichtshalber, nicht dass das was von hinten durch die Brust ins Auge wird. Was ich damit sagen will ist, ich hab noch nie so ein Makro gebraucht;-)

Aber never say never, gleich gar nicht bei Nepumuk, gell Max?;-)

Wollte nur mal die Basisfrage nach dem Zweck der Aktion gestellt haben;-)

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hase

Wenn du schon ein Makro hast, das du über eine Schaltfläche aufrufen willst:
Symbolleiste Formular:
Dort den Button Schaltfläche auswählen und in deiner Sheet platzieren.
dort wirst du auch gleich gefragt welches Makro mit dieser Schaltfläche verbunden sein soll.

Bei der Befehlsschaltfläche aus der Steuerelemente-Toolbox, dort muss dein Code zwischen

Private Sub CommandButton1_Click()
'Bla' hier ist mein Code
'ich mache irgendetwas
'keine Ahnung
End Sub

sein.

gruss Thomas

------------------
Am Anfang war kein Licht - und Vater blickte Kalt
Miss Brauch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Klingt für mich verdammt nach der personl.xls;-)
Schaue mal, ob im Excel/VBE im Projektexplorer eine personl.xls angezeigt wird,
wenn ja, tu die sub 'startup' da in ein Modul rein.
Oder mal guggn unter c:\programme\office\xlstart\ was da so drinnen steht
Das ist dann so wie in Acad, einmal geladen, funzt der Code in allen dwg's\xls'

Mit dem Button wirds dann aber schwierig, da hilft IMHO eine eigene Commandbar, oder - best case - gleich ein Addin(*.xla);-)

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP