Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kommentarinhalt abfragen

Kommentarinhalt abfragen
SteffenS
Hallo Zusammen,
wie kann ich abfragen ob ein bestimmter Text in einem Kommentar steht.
ZUm Beispiel will ich wissen ob drin steht: blaue farbe
Wie kann ich dies errreichen.
Danke im Voraus.
Steffen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kommentarinhalt abfragen
11.11.2009 21:03:22
F1
Ohne Fehlerbehandlung:
Sub ordination()
If InStr([a1].Comment.Text, "blaue farbe") > 0 Then
MsgBox "Treffer!"
Else
MsgBox "Nix"
End If
End Sub

AW: Kommentarinhalt abfragen
11.11.2009 21:07:59
Josef
Hallo Steffen,
das geht zB. so.
Sub findTextInComment()
  Dim objCmt As Comment
  Dim strFind As String, strTmp As String
  
  strFind = "blaue Farbe"
  
  For Each objCmt In ActiveSheet.Comments
    strTmp = objCmt.Text
    If strTmp Like "*" & strFind & "*" Then
      MsgBox "Der Suchtext '" & strFind & "' wurde" & vbLf & "Zelle " & objCmt.Parent.Address(0, 0) & " gefunden!", vbInformation, "Suche"
      Application.Goto objCmt.Parent, True
      Exit For
    End If
  Next
  
End Sub


Gruß Sepp

Anzeige
Wenn du das lieber im Arbeitsblatt mit...
11.11.2009 22:56:41
Luc:-?
...einer Formel tun willst, Steffen,
wäre sicher diese udFkt eher was für dich... Klick! Klick!
Liest übrigens auch Text aus Textfeldern aus... ;-)
Gruß Luc :-?
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige