Klicken Sie auf eine Zelle, um ein Makro auszulösen

Question

Ich bin auf das folgende VBA gestoßen, um beim Klicken auf eine bestimmte Zelle eine Nachrichtenbox zu generieren:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            MsgBox "Hello World"
        End If
    End If
End Sub

Das funktioniert prima, aber wie lautet die Syntax, um direkt danach ein weiteres hinzuzufügen? Klicken Sie beispielsweise auf eine andere Zelle, um eine andere Nachricht zu erhalten.

Danke

Answer 1

Dies ist eine Möglichkeit, mit zwei Zellen umzugehen:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Selection.Count = 1 Then
      If Not Intersect(Target, Range("D4")) Is Nothing Then
         MsgBox "Hello World"
      End If

      If Not Intersect(Target, Range("F5")) Is Nothing Then
         MsgBox "Goodby World"
      End If
   End If
End Sub