Office: Tastenkürzel für Werte-Einfügen und Formel-Einfügen in Excel

Hallo,

ich würde gerne neue Tastenkürzel anlegen, nur weiß ich nicht wie es geht !

z.B. Werte-Einfügen STRG B

Kann mir jemeand helfen ?

 

Hallo wikro,

im Klassenmodul 'DieseArbeitsmappe' (also unter den 'Microsoft Excel Objekten') folgendes Makro installieren:

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Application.OnKey "^B", "WerteEinfügen"
End Sub

ferner in einem allgem. Codemodul zB. 'Modul1' (also unter 'Module') folgendes Makro installieren:

Code:

Public Sub WerteEinfügen()
  ActiveCell.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False

End Sub

Dabei wird das 1.Makro durch die Ereignisbehandlung in der Excel-Arbeitsmappe aufgerufen, sobald sich die Markierung in einem Excel-Arbeitsblatt ändert: Bei Betätigung der Tastenkombination Strg+B (=^B) wird das Programm 'WerteEinfügen' aufgerufen, welches aber im 2.Makro deklariert ist. Und genau dort wird für die aktuelle Auswahl die 'PasteSpecial'-Methode ausgeführt, die dem Befehl 'Inhalte einfügen...' im Excel-Arbeitsblatt entspricht.

 

Hallo Exl121150,

ich glaube ich habe es so gemacht, wie beschrieben, aber es funktioniert nicht !

Wenn ich eine Formel selektiere, dann Strg C und anschließend Strg B drücke, kommt leider nur ein Ton.....

Was mache ich falsch ?

Ich würde gerne noch folgende Tastenkombinationen einrichten:

Formel einfügen - STRG M
Format einfügen - STRG N

 

Hallo wikro,

folgendes Makro gehört im Klassenmodul 'DieseArbeitsmappe' installiert:

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Application.OnKey "^b", "WerteEinfügen"
  Application.OnKey "^m", "FormelnEinfügen"
  Application.OnKey "^n", "FormateEinfügen"
End Sub

und folgende Makros gehören in einem allgem.Codemodul, zB. 'Modul1' installiert:

Code:

Const xlPasteValues = -4163, xlPasteFormulas = -4123, xlPasteFormats = -4122
Const xlPasteSpecialOperationNone = -4142

Public Sub WerteEinfügen()
  On Error Resume Next
  ActiveCell.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
  If Err <> 9 Then MsgBox "Nichts Kopierbares in der Zwischenablage"
End Sub

Public Sub FormelnEinfügen()
  On Error Resume Next
  ActiveCell.PasteSpecial Paste:=xlPasteFormulas, _
    Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
  If Err <> 9 Then MsgBox "Nichts Kopierbares in der Zwischenablage"
End Sub

Public Sub FormateEinfügen()
  On Error Resume Next
  ActiveCell.PasteSpecial Paste:=xlPasteFormats, _
    Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
  If Err <> 9 Then MsgBox "Nicht Kopierbares in der Zwischenablage"
End Sub

Warum bei Dir die Makros nicht funktioniert haben? Dafür kann es 2 Ursachen geben:
1) Vielleicht existiert unter Excel2000 eine der Konstanten, die ich jetzt ausdrücklich definiert habe, noch nicht als Konstantenbezeichner.
2) Eine weitere Ursache kann in den Tastencodes selbst liegen: Du hast mir angegeben: 'STRG M' also ein großes M; drückt man aber 'Strg m', kann es sein, dass keine Reaktion erfolgt.
Ich habe die Tastencodes jetzt alle 3 auf Kleinbuchstaben umgestellt.

Eines muss Dir aber auch klar sein: damit ist in dieser Arbeitsmappe die ursprüngliche Bedeutung dieser 3 Steuercodes (sofern vorhanden) übersteuert - also insbesondere 'Strg+m' und 'Strg+n'.

Bemerkung zu Application.OnKey "Tasten","Befehl" :
Diese Anweisung führt den "Befehl" nicht unmittelbar aus, sobald die "Tasten" gedrückt werden, sondern die "Tasten" und der "Befehl" werden in eine Excel-interne Tabelle eingetragen, in der die Excel-Anwendung nachschaut, sobald Tasten gedrückt werden, ob diese in der Tabelle vorhanden sind, damit dann der darin enthaltene Befehl ausgeführt werden kann. D.h. entfernt man nachträglich die OnKey-Methoden aus den Makros, so führen die Tastencodes munter den 1x abgeschickten Befehl weiter aus; erst wenn man einen anderen "Befehl" mit Hilfe der OnKey-Methode für die "Tasten" eintragen lässt, tritt eine Änderung auf.
Will man das ursprüngliche Verhalten der "Tasten", das sie vor dem erstmaligen Verwenden der OnKey-Methode hatten, so muss man die OnKey-Methode mit den "Tasten", aber ohne "Befehl" verwenden: Application.OnKey "Tasten"

Man könnte diese 3 OnKey-Methoden genauso gut in eine 'Workbook_Open()'-Ereignisbehandlungsroutine verpacken anstatt in die 'Workbook_SheetSelectionChange(..)'-Ereignisbehandlung und das Ganze würde trotzdem noch funktionieren.

 

Grüezi wikro

Hmmm, warum ziehst Du dir nicht einfach die entsprechenden Schaltflächen über Extras/Anpassen/Symbolleisten/Befehle in eine Symbolleiste?

Das geht genau so fix und Du kommst ohne VBA aus....


Für das Format gibts im übrigen ja bereits den Pinsel.