Kommentar bei bestimmten Text löschen

Hallo und guten Morgen liebe Gemeinde!
Ich habe hier folgenden Code der in einem Bereich (D5:F500)bei dem Wort "Nein" eine Inputbox aufruft. Der Inhalt der Box wird dann als Kommentar gespeichert.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zell As Range
Dim strKommentar As String
If Not Intersect(Target, Range("D5:F500")) Is Nothing Then
If Target.Value = "Nein" Then
strKommentar = InputBox("Bitte Begründung eingeben:", "Hinweis")
If strKommentar  "" Then
If Not Target.Comment Is Nothing Then Target.Comment.Delete
Target.AddComment strKommentar
End If
End If
End If
End Sub

Gestern Abend beim Basteln hatte ich noch 2 weitere Elemente im Code. Ich hatte mich aber verzettelt und nun krieg ich es logisch nicht mehr auf die Reihe. Ich hoffe jemand von euch kann mir helfen.
1. Zusätzlich soll in dem Bereich bei dem Wort "Ja" das Kommentar gelöscht werden.
2. Ist in dem Bereich die Zelle leer soll ebenfalls das Kommentar gelöscht werden.
Ich freu mich auf eure Antworten. MfG Bonki

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim strKommentar As String If Not Intersect(Target, Range("D5:F500")) Is Nothing Then With Target(1, 1) If LCase(.Value) = "nein" Then strKommentar = InputBox("Bitte Begründung eingeben:", "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

Hallo,
Versuch mal so:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim zell As Range
    Dim strKommentar As String
    For Each zell In Intersect(Target, Range("D5:F500")).Cells
        Select Case zell.Value
            Case "ja", ""
                If Not zell.Comment Is Nothing Then zell.Comment.Delete
            Case "Nein"
                strKommentar = InputBox("Bitte Begründung eingeben:", "Hinweis")
                If strKommentar <> "" Then
                    If Not zell.Comment Is Nothing Then zell.Comment.Delete
                    zell.AddComment strKommentar
                End If
        End Select
    Next zell
End Sub

ransi

Private Sub Worksheet_Change(ByVal Target As Range) Dim strKommentar As String If Not Intersect(Target, Range("D5:F500")) Is Nothing Then If Target.Value = "Nein" Then strKommentar = InputBox("Bitte Begründung eingeben:", "Hinweis") If strKommentar "" Then If Not Target.Comment Is Nothing Then Target.Comment.Delete Target.AddComment strKommentar End If ElseIf Target = "" Or Target = "Ja" Then If Not Target.Comment Is Nothing Then Target.Comment.Delete End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim strKommentar As String If Not Intersect(Target, Range("A2:B5")) Is Nothing Then If Target.Value = "Nein" Or Target = "nein" Then strKommentar = InputBox("Bitte Begründung eingeben:", "Hinweis") If strKommentar "" Then If Not Target.Comment Is Nothing Then Target.Comment.Delete Target.AddComment strKommentar End If ElseIf Target = "" Or Target = "Ja" Or Target = "ja" Then If Not Target.Comment Is Nothing Then Target.Comment.Delete End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim strKommentar As String If Not Intersect(Target, Range("A2:B5")) Is Nothing Then If UCase(Target) = "NEIN" Then strKommentar = InputBox("Bitte Begründung eingeben:", "Hinweis") If strKommentar "" Then If Not Target.Comment Is Nothing Then Target.Comment.Delete Target.AddComment strKommentar End If ElseIf UCase(Target) = "JA" Then If Not Target.Comment Is Nothing Then Target.Comment.Delete End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Kommentar bei bestimmten Text löschen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kommentar bei bestimmten Text löschen

7 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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread