Control über "OnAction" an Makro übergeben
Martin
ich versuche gerade mir ein eigenes UserForm-Kontextmenü für alle TextBoxen zu bauen. Das Kontextmenü funktioniert auch schon, aber leider gelingt es mir nicht die TextBox als Control über "OnAction" an ein Makro zu übergeben.
Bei folgendem Code komme ich nicht weiter:
With .Controls.Add(Type:=msoControlButton)
.Caption = "Alles markieren"
'Die folgende Zeile bereitet mir Probleme
.OnAction = "'AllesMarkieren(" & Box & ")'"
.BeginGroup = True
If Len(Box.Value) = 0 Then .Enabled = False
End With
"Box" ist die jeweilige TextBox im Klassenmodul. Ich habe die Datei auch vollständig hochgeladen:
https://www.herber.de/bbs/user/77954.xls
Viele Grüße
Martin