Hallo,
ich habe mal wieder ein Problem beim Erstellen eines Popup-Feldes in meiner eigenen Menüleiste:
Das Popupfeld soll alle Tabellenblätter anzeigen - das macht es auch. Nun soll aber beim Anklicken eines Feldes (OnAction) ein sub TabellenblattDrucken aufgerufen werden, wobei der Name des Tabellenblattes (also .Caption) mit übergeben wird. Bei meinem Code erhalte ich aber immer eine Fehlermeldung - die aufgerufene Funktion heisst sub TabellenblattDrucken(Name as string).
Wer kann mir weiterhelfen - leider sind meine Kenntnisse nicht besonders gut. Hier ist noch mein Versuch:
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oBar.Visible = True
oPopUp.Caption = "Drucken"
' Unterpunkte - Tabellenblätter
For Each Blatt In Sheets
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = Blatt.Name
.Style = msoButtonCaption
.OnAction = call TabellenblattDrucken(oBtn.Caption)
End With
Next Blatt
mfg
volleybaerchen