Antwort
Solange sich alles auf einem einzigen Arbeitsblatt abspielt, kannst du es mit diesem Code machen. Der Code soll direkt in das Arbeitsblatt, nicht in ein separates Modul:
Public PreviousCell As Range, CurrentCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If Not ((PreviousCell Is Nothing) Or (PreviousCell.Address = Range("A1").Address)) Then
PreviousCell.Select
End If
Else
Set PreviousCell = CurrentCell
Set CurrentCell = Target
End If
End Sub