Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Kommentarinhalt abfragen | Herbers Excel-Forum


Betrifft: Kommentarinhalt abfragen von: SteffenS
Geschrieben am: 11.11.2009 20:56:07

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

  

Betrifft: AW: Kommentarinhalt abfragen von: F1
Geschrieben am: 11.11.2009 21:03:22

Ohne Fehlerbehandlung:

Sub ordination()
If InStr([a1].Comment.Text, "blaue farbe") > 0 Then
   MsgBox "Treffer!"
Else
   MsgBox "Nix"
End If
End Sub



  

Betrifft: AW: Kommentarinhalt abfragen von: Josef Ehrensberger
Geschrieben am: 11.11.2009 21:07:59

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



  

Betrifft: Wenn du das lieber im Arbeitsblatt mit... von: Luc:-?
Geschrieben am: 11.11.2009 22:56:41

...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 :-?


Beiträge aus den Excel-Beispielen zum Thema "Kommentarinhalt abfragen"