Ich habe in einer Datei eine eigene Menü und Symbolleiste.
Dort rufe ich mit verschiedenen Tastenkombinationen einzelne Prozeduren auf.
Nun möchte ich gerne mit ALt - Q die Funktion von Suchen und Ersetzen aufrufen.
Wie geht das?
Das FERNGLAS habe ich in meiner Symbollleiste. Kann man das auch mit diesen TAsten aufrufen?
Gruß Reinhardt.
Set MeinMenü = AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = "&Datei"
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&S Speichern"
.OnAction = "Datei_speichern"
End With