In Kommentaren suchen

[Kathrin2016]

Hallo Zusammen,

ich bin totaler Neuling auf dem Makro-Gebiet, deshalb seid bitte nachsichtig, falls meine Vorstellungen so nicht umsetzbar sind.

Also:
In meiner Excel-Tabelle sind einige Kommentare an die Zellen angeheftet. Jetzt möchte ich gerne in die Zelle A1 einen Suchbegriff eingeben, der dann in den Kommentaren gesucht wird und dann soll mir natürlich die Zelle oder der Kommentar angezeigt werden, in der dieser Suchbegriff vorhanden ist.

Ich hoffe ihr konntet mich verstehen und mir eventuell weiter helfen.
Am liebsten wäre es mir natürlich, wenn keine Makro notwendig ist.

Vielen Lieben Dank im Voraus und liebe Grüße


Kathrin

[Fennek]

Hallo,

versuche diesen Code:

Code:

Sub test()
Dim Ko As Range
For Each Ko In ActiveSheet.UsedRange.SpecialCells(1)
   'Debug.Print Ko.Address, Ko.Comment.Text
   If InStr(Ko.Comment.Text, Cells(1, 1)) Then
       Range(Ko.Address).Interior.Color = vbYellow
   End If
Next Ko
End Sub

Anstelle der Gelbfärbung kann auch jede andere mögliche Aktion gesetz werden.

mfg

[Kathrin2016]

Hallo Fennek,

vielen Dank schonmal.

Nur leider färbt Excel jetzt alle Zellen mit Kommentar gelb.

Woran kann das liegen?

LG
Kathrin

[Fennek]

Hallo,

versuche

Code:

If InStr(Ko.Comment.Text, Cells(1, 1)) > 0 Then

mfg

[Kathrin2016]

Vielen Dank.
Jetzt gehts :19:

[IchBinIch]

Hi,

noch eine alternative, wenn auch ähnliche, Lösung:

Sub KommentareFinden()
Dim Kom As Comment
Dim strSuch As String
    
strSuch = Cells(1, 1).Value
If strSuch = "" Then Exit Sub

For Each Kom In ActiveSheet.Comments
    If InStr(Kom.Text, strSuch) > 0 Then
        MsgBox "Suchbegriff gefunden in Zelle " & Kom.Parent.Address
    End If
Next Kom

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0

Gruß
Ich

[Gast 123]

Hallo

der Code von Fennek passt sehr gut.  Ich habe ihn nur ein bisschen überarbeitet.  Probier es mal aus.
Im ersten Fall wird die Zelle selektiert, im zweiten Fall die Adresse der Zelle angezeigt.  Suchwert in A1. 

mfg  Gast 123

Code:

'10.10.2016   Gast 123   Clever Forum
'Kommentar in zellen suchen
'Code von Fennek  (überarbeitet)


Sub Test_Select()
Dim Ko As Range
For Each Ko In ActiveSheet.UsedRange.SpecialCells(1)
  'Debug.Print Ko.Address, Ko.Comment.Text
  If InStr(Ko.Comment.Text, Cells(1, 1)) Then
      Ko.Select
      MsgBox Ko.Comment.Text
  End If
Next Ko
End Sub


Sub Test2_Show()
Dim Ko As Range
For Each Ko In ActiveSheet.UsedRange.SpecialCells(1)
  'Debug.Print Ko.Address, Ko.Comment.Text
  If InStr(Ko.Comment.Text, Cells(1, 1)) Then
      MsgBox Ko.Address & Chr(10) & Ko.Comment.Text
  End If
Next Ko
End Sub