Moin zusammen
Mit Abfrage von Zeichen!
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
If UCase(Target) = "L" Then Cells(Target.Row + 0, Target.Column + 1).Activate
If UCase(Target) = "M" Then Cells(Target.Row + 1, Target.Column + 1).Activate
Case "$A$2"
Cells(Target.Row + 0, Target.Column + 2).Activate
Case "$A$3"
Cells(Target.Row + 0, Target.Column + 3).Activate
End Select
End Sub
Ansonsten Anpassen!