Ramses war so nett mir mit ein bischen Code auszuhelfen.
Es geht darum, daß ich per Click auf einen dynamisch erstellten Button eine Aktion auslösen möchte.
Problem hierbei: es soll nicht nur die Aktion auslösen, sondern auch gleich einige Werte mitgeben (4 Übergabeparameter) um genau zu sein.
Wie müsste ich diesen Code anpassen, damit das funktioniert ? :
Option Explicit
Sub test()
'Aufruf wo der Button hin soll
AddButton Range("E4")
End Sub
Sub AddButton(TarRange As Range)
'Zelle auswählen wo d
ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
With Selection
.Top = TarRange.Top
.Left = TarRange.Left
.Height = TarRange.Height
.Width = TarRange.Width
.Text = ActiveSheet.Shapes.Count
'Diese Procedure wird ausgelöst
.OnAction = "TestProcedure"
End With
End Sub
Sub TestProcedure()
MsgBox "Ausgelöst von " & Application.Caller
End Sub
=> ein dynamisch generierter Button, der mir beim draufklicken sagt wie er heißt... ...für den Anfang schon mal nicht schlecht.
Aber er soll nicht nur seinen namen verraten, sondern ich möchte ihm auch mehrere parameter mitgeben...
...Mein erster Gedanke war daher...
.OnAction = "TestProcedure("A","B","C","D")
(und die Testprocedure entsprechend zu erweitern)...
...aber das klappt (zumindest bei mir) leider nicht.
wie stellt man sowas geschickterweise an ? Habt Ihr Tips für mich ?
(ganz wichtig ist, daß die Buttons zur Laufzeit dynamisch angelegt werden müssen...)
Danke im Voraus,
LT