AW: zurück zum letzten Tabellenblatt
13.01.2009 16:25:24
Tino
Hallo,
kannst Du die Taste F12 entbehren?
Nach dem Du die Mappe neu öffnest bzw. neu aktivierst, kannst Du die Taste F12 dafür nutzen
um immer ins letzte Worksheet zu wechseln. (Diagramme habe ich ausgeschlossen)
kommt als Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Activate()
Application.OnKey "{F12}", "LetzteTabelleSelect"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F12}"
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If TypeName(Sh) = "Worksheet" Then
Set LetzteTabelle = Sh
End If
End Sub
kommt in ein Modul
Option Explicit
Public LetzteTabelle As Worksheet
Sub LetzteTabelleSelect()
If Not LetzteTabelle Is Nothing Then
LetzteTabelle.Select
End If
End Sub
Gruß Tino