Makros über Funktionstasten aufrufen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Makros über Funktionstasten aufrufen?
von: Ralf-Eckhard
Geschrieben am: 28.11.2003 07:07:55

Hallo.

Gibt es eine Möglichkeit, um Makros nicht nur über "Strg + Buchstabe" aufzurufen sondern auch über Funktionstasten?

Danke im vorraus,
Ralf-Eckhard

Bild


Betrifft: AW: Makros über Funktionstasten aufrufen?
von: Matthias G
Geschrieben am: 28.11.2003 08:07:11

Hallo Ralf,
folgender Code ins Codemodul "DieseArbeitsmappe":

Private Sub Workbook_Activate()
'z.B. Funktionstaste umleiten auf Makro "Info"
Application.OnKey "{F1}", "Info"
End Sub


Private Sub Workbook_Deactivate()
'Funktionstaste rücksetzen
Application.OnKey "{F1}"
End Sub

Wichtig ist die Rücksetzung auf Standard, wenn deine Mappe deaktiviert wird, denn andere Tabellen kommen mit Deinem Makro wahrscheinlich nicht klar...

Weiteres unter "OnKey" in der Excel-VBA-Hilfe!

Gruß,
Matthias


Bild


Betrifft: AW: Makros über Funktionstasten aufrufen?
von: Nabriss
Geschrieben am: 28.11.2003 08:22:45

Hallo Ralf,Hallo Matthias
So funktioniert:


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then ActiveSheet.TextBox2.Activate '"ENTER"
    If KeyCode = 35 Then Call einfügen                 '"ENDE"
    If KeyCode = vbKeyF1 Then Call START               '"F1" 
End Sub

Gruß
Nabriss


Bild


Betrifft: AW: Makros über Funktionstasten aufrufen?
von: Matthias G
Geschrieben am: 28.11.2003 08:28:53

Hallo Nabriss,
dein Code ist aber sehr speziell. Er funktioniert nur innerhalb einer Textbox eines Userforms.
Dies konnte ich der Fragestellung aber nicht entnehmen.
Gruß,
Matthias


Bild


Betrifft: AW: Makros über Funktionstasten aufrufen?
von: Ralf-Eckhard
Geschrieben am: 28.11.2003 08:39:55

Hallo "Nabriss"

Vielen, vielen Dank - damit erreiche ich eine unheimliche Arbeitserleichterung.

Gruss,
Ralf


Bild


Betrifft: AW: Danke für die Rückmeldung, falls...
von: Matthias G
Geschrieben am: 28.11.2003 08:43:45

...Du dich tatsächlich auf meine Antwort bezogen hast.
Ich heiße zwar nicht Nabriss, fühlte mich aber trotzdem angesprochen.

Viele Grüße,
Matthias


Bild


Betrifft: AW: Danke für die Rückmeldung, falls...
von: Nabriss
Geschrieben am: 28.11.2003 08:57:29

Hallo Ralf
Ich wollte nur helfen!
Es tut mir leid das ich Mattias belästigt, war nicht mit absicht.
Mein Code funktioniert sehr gut und mit hilfe dieses code habe ich viel schwere aufgaben erledigt. weil in jeden textbox kann ich für jede taste ein neu Makro führen.
Gruß
Nabriss


Bild


Betrifft: AW: Danke für die Rückmeldung, falls...
von: Matthias G
Geschrieben am: 28.11.2003 09:04:49

Hallo Nabriss,
Du hast mich überhaupt nicht belästigt, wie kommst Du darauf?
Ich wollte dich (und v.a. Ralf) nur darauf hinweisen, dass der Code nur in einer Textbox funktioniert. Da Ralf den Level "VBA nur mit Recorder" eingetragen hat, meine ich, so ein Hinweis ist angebracht.
Also, nichts für ungut!

Viele Grüße,
Matthias


Bild


Betrifft: AW: OK
von: Nabriss
Geschrieben am: 28.11.2003 09:13:14

OK


Bild


Betrifft: AW: Danke für die Rückmeldung, falls...
von: Ralf-Eckhard
Geschrieben am: 28.11.2003 12:55:02

sorry ihr zwei

hab da wohl etwas durcheinander geworfen

trotzdem nochmal danke für die hilfreiche Hilfe


Bild


Betrifft: AW: Danke für die Rückmeldung, falls...
von: Ralf-Eckhard
Geschrieben am: 28.11.2003 12:55:14

sorry ihr zwei

hab da wohl etwas durcheinander geworfen

trotzdem nochmal danke für die hilfreiche Hilfe


Bild

Beiträge aus den Excel-Beispielen zum Thema " Makros über Funktionstasten aufrufen?"