Ereignis beim selektieren einer Zelle ausführen

104003

Wenn eine Zelle aktiviert wird, wird eine Aktion ausgeführt. Mit diesem Makro wird, sobald die Zelle A1 selektiert wird der Befehl MsgBox ausgeführt.

Dieses Makro muss zwingend in einem Tabellenblatt stehen, nicht in einem Modul.


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
MsgBox "In die Zelle A1 wurde folgendes eingegeben: " & ActiveSheet.Range("A1").Value
End If
End Sub

_________________________________________________________________________________

Eine andere Lösung stellt folgendes Makro dar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
       MsgBox "In die Zelle A1 wurde folgendes eingegeben: " & ActiveSheet.Range("A1").Value
End If
End Sub


Mit diesem Makro ist es also möglich, den Bereich auf mehrere Zellen auszuweiten. Im oben stehende Makro wird die Aktion ausgeführt, wenn die Zellen A1, A2 oder A3 selektiert werden.

Beide Makros müssen in einem Tabellenblatt, nicht in einem Modul eingefügt werden.