Zellen Überwachen und Kommentar
Excellent
ich bräuchte mal wieder Hilfe von Euch.
Ich möchte einen Zellenbereich überwachen. Wenn in diesem Bereich ein x eingetragen wird, soll automatisch eine InputBox zum eintragen eines Kommentars erstellt werden. Der Kommentar soll dann der Zelle mit dem x beigefügt werden. Wenn keine Eingabe erfolgt soll auch kein Kommentar erstellt werden. Falls das x gelöscht wird, soll gefragt werden, ob der Kommentar auch gelöscht werden soll und dann verschwinden oder eben erhalten bleiben.
Bislang habe ich es so versucht:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kommentar As String
Dim salt As String
Dim Kom As Comment
If Not Intersect(Target, Me.Range("L9:L40")) Is Nothing Then
If Target = "x" Then Kommentar = InputBox("Bitte hier Kommentar einfügen:")
If Kommentar = "" Then Exit Sub
With Target
On Error Resume Next
salt = .Comment.Text
If salt = "" Then .AddComment
.AddComment
.Comment.Text Kommentar
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
If Target = "" Then
Kom.Delete
End If
End Sub
Danke schonmal,
Gruß Fabian
Anzeige