Hallo Jelena,
das ist einfach. Das geht mit Application.OnKey. Im folgenden Beispiel wird von J nach T gesprungen und von T zurück nach J dann aber eine Zeile weiter. Befindet sich die AktiveZelle woanders wird in die nächste Spalte gesprungen:
Der folgende Code gehört in das Modul "Diese Arbeitsmappe"
Private Sub Workbook_Open()
Application.OnKey "{TAB}", "Springen"
End Sub
Und dieser code in ein Standardmodul (z.B. Modul1)
Sub Springen()
If ActiveCell.Column = 10 Then
ActiveCell.Offset(0, 10).Select
ElseIf ActiveCell.Column = 20 Then
ActiveCell.Offset(1, -10).Select
Else
ActiveCell.Offset(0, 1).Select
End If
End Sub
Nach dem Speichern, Schließen und neu öffnen sollte das funktionieren.
Gruß Mr. K.