Zusätzliches Tastaturkürzel

Forumthread: Zusätzliches Tastaturkürzel

01.06.2008 12:50:00

Mathias

Hallo,
für den Befehl Datei / Speichern würde ich gern in meinem VBA-Projekt ein zusätzliches Tastaturkürzel (z.B. F2) anlegen.
Die Onkey-Methode kenne ich schon, aber ich bekomme es irgendwie nicht hin, dass Ereignisse wie z.B. Worksheet_BeforeSave dabei mit ausgeführt werden.
Hat jemand ´sowas schonmal gemacht?
Viele Grüße
Mathias

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zusätzliches Tastaturkürzel

01.06.2008 13:03:04

Tobias
AW: Zusätzliches Tastaturkürzel

02.06.2008 07:52:03

Mathias
AW: Zusätzliches Tastaturkürzel

02.06.2008 09:53:31

Tobias
AW: Zusätzliches Tastaturkürzel

07.06.2008 18:30:48

Mathias

AW: Zusätzliches Tastaturkürzel

01.06.2008 13:03:04

Tobias

Hallo Mathias,
ich habe den Code etwas umgestellt und so gelöst. Ich hoffe das hilft Dir.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey ("{F2}")
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call BeforeSave
End Sub

Sub Workbook_open()
Call Application.OnKey("{F2}", "DieseArbeitsmappe.BeforeSave")
End Sub

Sub BeforeSave()
MsgBox "BeforeSave"
End Sub

Schönen Gruß, Tobi
www.tobiasschmid.de

AW: Zusätzliches Tastaturkürzel

02.06.2008 07:52:03

Mathias

Hallo Tobi,
vielen Dank für den Quellcode.
Wenn ich das richtig sehe, müßte der Speichervorgang dann auch in Sub BeforeSave() ausgeführt werden, oder?
Viele Grüße
Mathias

AW: Zusätzliches Tastaturkürzel

02.06.2008 09:53:31

Tobias

Mist. Ja, aber dann speicherst Du (wenn Du den "normalen" Speichervorgang wählst) zweimal hintereinander die Datei. Das hatte ich übersehen.
Man kann den Code aber noch etwas anpassen:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey ("{F2}")
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call BeforeSave(True)
End Sub

Sub Workbook_open()
Call Application.OnKey("{F2}", "DieseArbeitsmappe.BeforeSave")
End Sub

Sub BeforeSave(Optional FileIsSaved as boolean = False)
MsgBox "BeforeSave"
If not FileIsSaved then
'Datei speichern
End If
End Sub

Die Funktion BeforeSave bekommt einen Optionalen Parameter mit Falsch als Standardwert.
Im übrigen Frage ich mich gerade, ob Du die Prozedur Workbook_BeforeSave überhaupt benötigst. Falls Du bei Drücken der F2-Taste NUR speichern möchtest, kannst Du die Workbook_BeforeSave auch weglassen.
Gruß, Tobi
www.tobiasschmid.de

AW: Zusätzliches Tastaturkürzel

07.06.2008 18:30:48

Mathias

Hallo Tobi,
danke für den ausführlichen Tipp. Das hätte ich soschnell nicht hinbekommen.
Läuft wunderbar! :-)
Viele Grüße
Mathias

Beliebteste Forumthreads (12 Monate)

Forumthread: Zusätzliches Tastaturkürzel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread