VBA: Button dynamisch erstellen+Funktion zuweisen
11.12.2007 12:09:49
Dirk
seit Tagen versuche ich verzweifelt folgende Aufgabe zu lösen:
Ein Button soll dynamisch in der aktuellen Zeile und einer fest vorgegeben Spalte erstellt werden, weiterhin soll dieser Button dann eine Funktion zugewiesen bekommen.
Der Hintergrund dazu ist, dass ein Tabellenblatt dynamisch aus "Teilvorlagen" aufgebaut wird (hinterlegt in einem Mastersheet):
zuerst der Kopfbereich, der unterschiedlich sein kann, dann die Informationszeilen, zum Schluss der Fußbereich, der ebenfalls unterschiedlich sein kann. In diesem Fußbereich kann es vorkommen, dass zusätzlich noch ein Button mit einer immer gleichen Funktion (dem Aufruf einer Form, welche ein Listfenster enthält) "eingebaut" werden muss.
Bei meinen bisherigen Bemühungen habe ich es zumindest schon einmal geschafft, dass der Button in der aktuellen Zeile und der festen Spalte erzeugt wird:
Private Sub Create_Button()
Dim btn As Button
'Button dynamisch in aktuell gewählter Zeile erstellen
Tabelle1.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=Tabelle1.Cells(ActiveCell.Row, 6).Left + 5, _
Top:=Tabelle1.Cells(ActiveCell.Row, 6).Top, Width:=10#, Height:=9).Select
'Button nun noch eine Funktion zuweisen
'hier: show_me
End Sub
Jetzt verzweifle ich daran, dem Button noch die Funktion "show_me" (hier nur die Messagebox - später den Aufruf der Form)
Private Sub show_me()
MsgBox "Klappt endlich!"
End Sub
zuzweisen.
Wie muss ich hier vorgehen? Vielen Dank schon einmal im Voraus für die Hilfe!
Mit freundlichen Grüßen,
Dirk vdH
Anzeige