Kommentar über Inputbox wenn Eintrag

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Const strTarget As String = "B1:B20,D1:D20,F1:F20" Dim HasComment As Boolean, strComment As String If Not Intersect(Target, Range(strTarget)) Is Nothing Then Cancel = True strComment = InputBox("Bitte Kommentar erfassen", "Kommentar") If Len(strComment) Then On Error Resume Next HasComment = Len(Target.Comment.Text) > 0 On Error GoTo 0 If HasComment Then Target.Comment.Text strComment Else Target.AddComment strComment End If Target.Comment.Shape.TextFrame.AutoSize = True End If End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Const strTarget As String = "B1:B20,D1:D20,F1:F20" Dim HasComment As Boolean, strComment As String, strOldComment As String If Not Intersect(Target(1, 1), Range(strTarget)) Is Nothing Then Cancel = True On Error Resume Next HasComment = Len(Target(1, 1).Comment.Text) > 0 On Error GoTo 0 If HasComment Then strOldComment = Target(1, 1).Comment.Text strComment = InputBox("Bitte Kommentar erfassen", "Kommentar", strOldComment) If Len(strComment) Then If HasComment Then Target(1, 1).Comment.Text strComment Else Target(1, 1).AddComment strComment End If Target(1, 1).Comment.Shape.TextFrame.AutoSize = True End If End If End Sub

Abend,
mein Ansatz war jetzt wie folgt: ( Dank Boris bin ich nun wieder ein bischen schlauer)


Private Sub Worksheet_Change(ByVal Target As Range)
Dim strKommentar As String
If Not Intersect(Target, Range("F3:F85,J3:J85,N3:N85,R3:R85,V3:V85")) Is Nothing Then
With Target(1, 1)
If LCase(.Value)  "" Then
strKommentar = InputBox("Ergebnis vom Rückkehrgespräch:", "Hinweis")
If strKommentar  "" Then
If Not .Comment Is Nothing Then
.Comment.Shape.TextFrame.Characters.Text = strKommentar
Else
.AddComment strKommentar
End If
End If
ElseIf LCase(.Value) = "ja" Or .Value = "" Then
.ClearComments
End If
End With
End If
End Sub

Funzt soweit auch und hat den Vorteil, dass das Kommentar auch gleich gelöscht wird, wenn die Zelle leer ist.
@ Boris : Mit deinem Code hätte ich noch das Problem, dass ich ein bestehendes Kommentar nicht wieder löschen kann.
Danke trotzdem ! Dank dir hab ich jetzt den Durchblick und konnte den Code für meine Zwecke anpassen.
Gruß Kevin

Beliebteste Forumthreads (12 Monate)

Kommentar über Inputbox wenn Eintrag

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kommentar über Inputbox wenn Eintrag

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread