Microsoft Excel

Herbers Excel/VBA-Archiv

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

Makro zur Suche in Kommentaren in Zelle einbinden?

Betrifft: Makro zur Suche in Kommentaren in Zelle einbinden? von: TheStick
Geschrieben am: 10.07.2013 12:41:53

Servus!

Erstmal möcht ich mich kurz bedanken für die vielen Tipps und hilfreichen Codes die ich hier schon gefunden habe. Leider konte ich aber für mein aktuelles Problem keine Lösung finden.

Ich möchte die Suchfunktion in eine Zelle einbinden, allerdings soll diese dann die Kommentare durchsuchen. Ich hab jetzt 2 Codes gefunden und dachte mir, die konnte man eventuell zusammenführen?

Code zur Suche in einer Zelle:
Code:








    Dim LastSelected As String
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    If Target.Address <> "$H$4" Then GoTo merken
     
    If LastSelected = "$H$3" Then Call suchen
     
merken:
    LastSelected = Target.Address
    End Sub
    Sub suchen()
     
    Dim sSuche As String
    Dim rngSuche As Range
     
    sSuche = Range("H3")
     
    Set rngSuche = Range("A1:T99").Find(What:=sSuche, LookIn:=xlValues)
    If Not rngSuche Is Nothing Then
    With rngSuche.Cells
    MsgBox ("Gefunden in " & .Address(0, 0))
    .Select
    End With
    Else
    MsgBox ("Suchbegriff nicht gefunden")
    End If
     
    End Sub

Und das ist der Code zum Suchen in Kommentaren:
Code:








Sub test()
Dim txt As String
Dim Zelle As Range
txt = InputBox("Suchtext")
For Each Zelle In Cells.SpecialCells(xlCellTypeComments)
    If InStr(Zelle.Comment.Text, txt) > 0 Then Zelle.Comment.Visible = True
Next
End Sub

Vielen Dank schonmal im voraus für jede Hilfe!

  

Betrifft: AW: Makro zur Suche in Kommentaren in Zelle einbinden? von: GuentherH
Geschrieben am: 10.07.2013 13:32:50

Hallo Stick,

mir ist nicht ganz klar, was Du erreichen willst.
Folgende Funktion kannst Du aus eine Zelle aufrufen:

Public Function IstImKommentar(Suchtext As String, kommentarfeld As Range)
 IstImKommentar = InStr(1, kommentarfeld.Comment.Text, Suchtext)
End Function
Der Eintrag in der Zelle wäre dann z.B.:
=IstImKommentar("test";A1)
beste Grüße,
Günther


  

Betrifft: AW: Makro zur Suche in Kommentaren in Zelle einbinden? von: TheStick
Geschrieben am: 11.07.2013 11:35:58

Vielen Dank für die Antwort!

Ich möchte quasi in eine Zelle einen Suchbegriff eingeben und das Makro soll dann auch die Kommentare danach durchsuchen. Am besten wäre es wenn die treffenden Begriffe gleich markiert werden würden, oder eben sonstwie hervorgehoben. Da ich leider noch fast keine Erfahrung in VBA habe, könntest du mir erklären wie ich deinen Code in eine Zelle einbinde?

Vielen Dank!


  

Betrifft: AW: Makro zur Suche in Kommentaren in Zelle einbinden? von: GuentherH
Geschrieben am: 11.07.2013 13:32:23

Hallo Stick,

hier eine Beispieldatei
https://www.herber.de/bbs/user/86315.xlsm
beste Grüße,
Günther


 

Beiträge aus den Excel-Beispielen zum Thema "Makro zur Suche in Kommentaren in Zelle einbinden?"