Excel / VBA - Ein Ereignis, das zur Eingabe von Kommentaren auffordert

Problem

Ich versuche, ein Ereignis in mehreren Zellen zu erstellen, das einen Kommentar erfordert, wenn bestimmte Bedingungen erfüllt sind.

Zum Beispiel:

• Wenn c1 <3.2, dann [Ereignis ausführen]
• Ich möchte, dass das Ereignis die Form eines Kommentar-Popups annimmt, das als Kommentar in der Zelle gespeichert wird.

Lösung

Versuche dies:

 Private Sub Worksheet_Change (ByVal Ziel als Bereich) Dim MyMessage als String Wenn Intersect (Ziel, Bereich ("C1")) nicht vorhanden ist, beenden Sie Sub If Range ("C1") <3.2 Dann MyMessage = InputBox ("Bitte geben Sie Ihren Kommentar ein") ) Mit Bereich ("C1") .ClearComments .AddComment .Comment.Visible = False .Comment.Text Text: = MyMessage End With End If End Sub 

Vielen Dank an TrowaD für diesen Tipp.