wie kann ich bei einer Symbolleiste wenn ich per onaction ein Makro zuweise
eine Variable zuweisen.
z.B.: .onaction = "testmakro 1"
Danke im Voraus.
MFG
Steffen Schmerler
Sub test()
Dim oBar As CommandBar, oPopUp As CommandBarPopup, oBtn As CommandBarControl
Set oBar = Application.CommandBars("Worksheet Menu Bar")
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup, Temporary:=False)
oPopUp.Caption = "Verbrauchsabrechnung"
oPopUp.Move , 2
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Verbrauch erfassen"
.TooltipText = "Zählerstände aufnehmen"
.Style = msoButtonCaption
.OnAction = "'Aufnehmen ""huhu""'"
End With
End Sub
Sub Aufnehmen(T As String)
MsgBox T
End Sub