Dim bln As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Range("C21")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call Adresse
bln = False
End If
End Sub
Kann mir jemand einen Vorschlag machen?