Makro zur Suche in Kommentaren in Zelle einbinden?
10.07.2013 12:41:53
TheStick
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!
Anzeige