|
Hallo,
klar geht das. Dazu kommt in ein allgemeines Modul (z.B. Modul1 über Menü Einfügen -> Modul) zunächst dieser Code:
Sub Wechseln()
Dim Feldarr(), actFeld
If ActiveSheet.Name = "Tabelle1" Then
Feldarr = Array("D9", "D15", "H9", "H15") '<-- Reihenfolge definieren
actFeld = Application.Match(ActiveCell.Address(False, False), Feldarr, 0)
If IsError(actFeld) Then
Range(Feldarr(0)).Select
ElseIf actFeld = UBound(Feldarr) + 1 Then
Range(Feldarr(0)).Select
Else
Range(Feldarr(actFeld)).Select
End If
End If
End Sub
Anschließend schreibst du in das Modul der entsprechenden Tabelle (hier "Tabelle1")
Private Sub Worksheet_Activate()
Application.OnKey "{TAB}", "Wechseln" 'wird eingeschaltet
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{TAB}" 'wird ausgeschaltet
End Sub
und ins Modul "DieseArbeitsmappe" auch noch
Private Sub Workbook_Activate()
If ActiveSheet.Name = "Tabelle1" Then Application.OnKey "{TAB}", "Wechseln"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{TAB}"
End Sub
Das ist alles. Probiers aus.
Gruß Mr. K.
|