Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Dim bln As Boolean

Private Sub Worksheet_SelectionChange _
   (ByVal Target As Excel.Range)
   Dim rng As Range
   Set rng = Range("D6")
   If Target.Address = rng.Address Then bln = True
   If bln = True And Target.Address <> rng.Address Then
      Call MyMacro
      bln = False
   End If
End Sub

Sub MyMacro()
   MsgBox "Sie waren soeben in Zelle D6!"
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange