Gruppe
Ereignis
Bereich
SelectionChange
Thema
Makro nach Verlassen einer Zelle ausführen
Problem
Wie kann ich Excel dazu veranlassen, nach Verlassen einer bestimmten Zelle ein Makro auszuführen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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