Diesmal bezieht sich meine Frage zum Thema CommandBars...
Und zwar habe ich ein Button in meiner CommandBar, mit dem ich eine Function aufrufen möchte. jedoch braucht die Funktion einen übergabewert. Weiß jemand wie ich einen Wert zusammen mit dem Aufruf einer Funktion übergebe?
so sieht mein code aus:
Dim MyBar As CommandBar, myb4 As CommandBarControl
On Error Resume Next
Application.CommandBars("Navigation").Delete
Set MyBar = Application.CommandBars.Add("Navigation", msoBarFloating)
Set myb4 = MyBar.Controls.Add(msoControlButton, Parameter:=1)
myb4.FaceId = 271
myb4.TooltipText = "Save RQR for send only"
myb4.Caption = "Save RQR for Send"
myb4.OnAction = "Saveforsend"
'myb4.Parameter = "0" '0 entspricht nur speichern
myb4.Style = 3
Danke un und einen Wunderschöndn gruß....darius