Menue-Text aus Zelle übernehmen
13.10.2005 09:55:12
Lars
ich möchte für das Kontextmenue eine Bezeichnung aus einem Bereichsnamen erstellen (ohne eine variable zu deklarieren) und einfach den Inhalt der Zelle als Text anfügen (kann auch leer sein) - aber Excel tut es nicht.
VBA-Code:
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Align Vertical" & " = " & Workbooks("Excel.xls").Worksheets("tabelle2").Range("B_avertical")
.OnAction = "AVertical"
der Text aus der Zelle ("Excel.xls").Worksheets("tabelle2").Range("B_avertical") wird nicht übernommen und der Code wird nicht ausgeführt - wer kann helfen?
Da ich dies mit vielen Menuepunkten tun muß möchte ich es umgehen für jede eine variable zu deklarieren und festzulegen.
Vielen Dank für die Hilfe Lars