2mal Userform nach OnAction-Event
Kai
ich weiß, dass ein ähnliches Problem schon mal hier im Forum gefragt wurde, die Antwort hilft mir aber nicht weiter.
Ich habe ein makro,dass beim Öffnen einer Arbeitsmappe ein neues Menü in der Menüleiste einfügt.
Set myMenuBar = Application.CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "Postprocess CAI"
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "Create Charts"
ctrl1.TooltipText = "Creates Charts"
ctrl1.OnAction = "createGraphs.startGraphCreation()"
ctrl1.Style = msoButtonCaption
Das funktioniert soweit auch ganz gut. Das Problem ist nur, dass wenn ich auf den Menüpunkt klicke die Funktion
Sub startGraphCreation()
'Abfragen der anzuzeigenden Daten
If DataSelect.Visible = False Then DataSelect.Show
t = CreateCharts()
End Sub
offensichtlich 2-mal aufgerufen wird. Nach dem zweiten mal schmiert das Ganze dann mit der Meldung "Kann "createGraphs.startGraphCreation()" nicht finden ab.
Kann mir jemand sagen, wo mein Fehler liegt.
Danke Kai