Sub Umbelegen()
Dim cmbb As CommandBarButton
Set cmbb = Application.CommandBars("file").Controls("Seitenansic&ht")
cmbb.OnAction = "tt(1)"
End Sub
Sub tt(Nummer As Byte)
MsgBox Nummer ' Ein Haltepunkt hier bringt nix
End Sub
Sub test()
Call tt(1) ' klappt, die "1" wird einmal ausgegeben, Haltepunkt wird beachtet
End Sub
das Makro Umbelegen lasse ich laufen, anschließend gehe ich auf Datei--Seitenansicht, daraufhin wird derzeit die "1" zweimal nacheinander angezeigt. Wieso zweimal?
Der Hintergrund ist, ich will ermitteln und unterschiedlich reagieren wenn jmd. den Weg Datei--Seitenansicht geht oder aber auf das Symbol mit dem Blatt samt Lupe klickt.
Aber ich fand da nichts wie Application.Caller o.ä. im Print-Ereignis , also kam ich darauf bei beiden Wegen jeweils mittels Onkey einem Makro eine Nummer mitzugeben um das dann auszuwerten.
Tipps zu einem anderen Vorgehen nehme ich gerne an :-)
Zunächst aber habe ich diese zwei Fragen:
a) Wieso wird die MsgBox zweimal aufgerufen, genauer zweimal die "1" ausgegeben, denn an einem Haltepunkt in der Zeile der MsgBox wird nicht angehalten.
b) Wieso wird überhaupt das BeforePrint-Ereignis ausgelöst wenn ich auf Seitenansicht gehe?
Danke ^ Gruß
Reinhard