.OnAction
15.05.2003 15:45:34
TE
zur Laufzeit möchte ich einer Schaltfläche eine Aktion zuweisen:
...
nächstefreie = "1k1864"
With Application.CommandBars("Kasse").Controls(2)
.Caption = (nächstefreie)
.OnAction = "Nr_einfügen(nächstefreie)"
End With
...
Irgendwie klappt aber die Variablenübergabe zur Sub "Nr_einfügen" nicht. Was mache ich falsch?
Vielen Dank
Thomas
Anzeige