Ich habe Ihre Anfrage gegoogelt und festgestellt, dass Sie dazu ein Makro verwenden können.
Sub FindHighlight()
Dim tempCell As Range, Found As Range, sTxt, FoundRange, Response As Integer
Set Found = Range("A1")
sTxt = InputBox(prompt:="Enter value for search", Title:="VoG's Finder")
If sTxt = "" Then Exit Sub
Set tempCell = Cells.Find(what:=sTxt, After:=Found)
If tempCell Is Nothing Then
MsgBox prompt:="Not found", Title:="VoG's Finder"
Exit Sub
Else
Set Found = tempCell
Set FoundRange = Found
End If
Do
Set tempCell = Cells.FindNext(After:=Found)
If Found.Row >= tempCell.Row And Found.Column >= tempCell.Column Then Exit Do
Set Found = tempCell
Set FoundRange = Application.Union(FoundRange, Found)
Loop
FoundRange.Interior.ColorIndex = 6
Response = MsgBox(prompt:="Clear highlighting", Title:="VoG's Finder", Buttons:=vbOKCancel + vbQuestion)
If Response = vbOK Then FoundRange.Interior.ColorIndex = xlNone
End Sub
Wenn das Makro ausgeführt wird, werden die gefundenen Zellen hervorgehoben, und Sie können die Hervorhebung deaktivieren. Wenn Sie die Hervorhebung vorübergehend beibehalten möchten, klicken Sie auf Abbrechen. Führen Sie dieselbe Suche aus, und klicken Sie auf OK, um die Formatierung später zu löschen.
Klicken Sie hier , um die Quelle anzuzeigen.
Mehper C. Palavuzlar
quelle