Tastenkürzel für Werte-Einfügen und Formel-Einfügen in Excel :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2000] Tastenkürzel für Werte-Einfügen und Formel-Einfügen in Excel

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

wikro
Office-Hilfe.com-Neuling

Anmeldedatum: 02.01.2007
Beiträge: 35
Wohnort: Hannover

Verfasst am: 25.06.2009, 10:48

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 ?

Exl121150
Office-Hilfe.com-Profi

Anmeldedatum: 24.11.2008
Beiträge: 742

Verfasst am: 25.06.2009, 17:52

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.

_________________
Liebe Grüße
Exl121150

Win XP Professional SP3
Office 2007 Professional SP2

wikro
Office-Hilfe.com-Neuling

Anmeldedatum: 02.01.2007
Beiträge: 35
Wohnort: Hannover

Verfasst am: 26.06.2009, 09:15

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

Exl121150
Office-Hilfe.com-Profi

Anmeldedatum: 24.11.2008
Beiträge: 742

Verfasst am: 26.06.2009, 14:55

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.

_________________
Liebe Grüße
Exl121150

Win XP Professional SP3
Office 2007 Professional SP2

Thomas Ramel
MVP für Microsoft Office Excel

Anmeldedatum: 26.04.2009
Beiträge: 53

Verfasst am: 26.06.2009, 19:37

Grüezi wikro

wikro hat Folgendes geschrieben:

Ich würde gerne noch folgende Tastenkombinationen einrichten:

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

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.

_________________
Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel regiert verzögert und falscher ...	Nik313	Microsoft Excel Hilfe	3	19.03.2010, 20:43
	Countdown einfügen	febster	Microsoft PowerPoint Hilfe	0	18.03.2010, 21:28
	Excel Prozentrechnen mit Ergebnis	Kemikkiran1949	Microsoft Excel Hilfe	3	16.03.2010, 13:30
	Registername ion Formel verwenden	jamesbest	Microsoft Excel Hilfe	2	16.03.2010, 12:49
	Werte aktualisieren in mehrfach verkn...	wikro	Microsoft Excel Hilfe	3	16.03.2010, 10:20

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer

SMS kostenlos versenden | Tuning Forum | krankenversicherungsvergleich | Wii Modchip Xbox 360 Konsole

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de