Supportnet / Forum / Tabellenkalkulation

Hi Excelspezialisten, ist möglich, das Makros nur in einem bestimmten Tabellenblatt ausgeführt werden? Vielen Dank im Vorraus. Gruß fedjo z.B. Arbeitsmappe: Private Sub Workbook_Deactivate() Application.OnKey "{Return}" Application.OnKey "{Enter}" End Sub Private Sub Workbook_Activate() Application.OnKey "{Return}", "Schaller" Application.OnKey "{Enter}", "Leerzelle_Speichern" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "{Return}" Application.OnKey "{Enter}" End Sub Private Sub Workbooi_Open() Application.OnKey "{Return}", "Schaller" Application.OnKey "{Enter}", "Leerzelle_Speichern" End Sub

Hallo fedjo,

Wenn Du das über die Worksheet-Ereignisse des bestimmten Tabellenblattes steuerst, dann ja.

Private Sub Worksheet_Activate()
Application.OnKey "{Return}", "Schaller"
Application.OnKey "{Enter}", "Leerzelle_Speichern"
End Sub

Gruß gesemmelt

Hallo gesemmelt,
Danke für Deine Antwort!

Ich muß aber dann immer das Tabellenblatt nach dem öffnen der Arbeitsmappe aktivieren.

Kann man das Tabellenblatt nicht vielleicht auch automatisch aktivieren?

Gruß
fedjo

Das sollte eigentlich mit dem Workbook_open Event gehen:

Private Sub Workbook_Open()
sheets("bestimmtes Tabellenblatt").activate
End Sub

Hi rexi,
Danke für die Antwort!

Dein Cote brachte leider nicht den gwünschten Erfolg.
Ich habe das Problem jetzt so gelöst.

Workbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{Return}"
Application.OnKey "{Enter}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "{Return}", "Schaller"
Application.OnKey "{Enter}", "Leerzelle_Speichern"
End Sub

Worksheet:
Private Sub Worksheet_Deactivate()
Application.OnKey "{Return}"
Application.OnKey "{Enter}"
End Sub

Private Sub Worksheet_Activate()
Application.OnKey "{Return}", "Schaller"
Application.OnKey "{Enter}", "Leerzelle_Speichern"
End Sub


Gruß
fedjo

• VBA: Exceldatei in neues Tabellenblatt kopieren
• zwei Makros mit einer Schaltfläche ausführen.
• Makroproblem
• Tabellennamen in Listenfeld einstellen
• Daten nur in bestimmtes Tabellenblatt übernehmen wenn eine Zelle ungleich 0