Herbers Excel/VBA-Archiv

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

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

Zelle beim Suchen farblich hervorheben

• Zelle beim Suchen farblich hervorheben von Robert vom 03.09.2020 17:19:15
• AW: Zelle beim Suchen farblich hervorheben - von Matthias L am 03.09.2020 17:37:37
  • AW: Zelle beim Suchen farblich hervorheben - von Robert am 04.09.2020 16:12:53

Betrifft: Zelle beim Suchen farblich hervorheben von: Robert
Geschrieben am: 03.09.2020 17:19:15

Hallo Ihr lieben Exeler!
Ich hätte mal wieder eine Bitte. Habe in diesem Forum ein Makro gefunden mit welchen ich gezielt Begriffe suchen kann. Die entsprechenden Zellen werden aber nur schwach umrahmt. Wie kann ich es anstellen das der Zellhintergrund farblich hervorgehoben wird.
Für Eure Hilfe danke im voraus.

Sub Suchen()
Dim booGefunden As Boolean
Dim strEingabe As String
Dim rngFeld As Range
Dim wksSheet As Worksheet

strEingabe = Application.InputBox("Bitte Suchbegriff eingeben", "Suche", "Suchbegriff")
If strEingabe <> "" Then
    For Each wksSheet In ActiveWorkbook.Worksheets
        For Each rngFeld In wksSheet.UsedRange
            If InStr(UCase(CStr(rngFeld.Value)), UCase(strEingabe)) > 0 Then
                booGefunden = True
                wksSheet.Activate
                rngFeld.Select
                If MsgBox("Weitersuchen?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
            End If
        Next rngFeld
    Next wksSheet
    If booGefunden = False Then MsgBox "'" & strEingabe & "' nicht gefunden!", vbInformation
End If
End Sub

Vielen Dank und

LG Robert

  

Betrifft: AW: Zelle beim Suchen farblich hervorheben
von: Matthias L
Geschrieben am: 03.09.2020 17:37:37

Hallo,

Ausgehend davon, das es noch keine anderen Hintergrundfarben in den Blättern gibt!
in diesem Teil z.B. so:

'
If InStr(UCase(CStr(rngFeld.Value)), UCase(strEingabe)) > 0 Then
 booGefunden = True
 wksSheet.Activate
 wksSheet.Cells.Interior.Color = xlNone'ohne Select
 rngFeld.Interior.Color = vbCyan
 If MsgBox("Weitersuchen?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
'

Du musst also dafür sorgen, das beim wksSheet.Activate
erstmal alle Zellen entfärbt werden, sonst macht es ja keinen Sinn.

Gruß Matthias

  

Betrifft: AW: Zelle beim Suchen farblich hervorheben
von: Robert
Geschrieben am: 04.09.2020 16:12:53

Hallo Daniel,

habe jetzt intensiv geprüft und möchte ganz herzlich bei Dir bedanken. Es funzt große Freude.




LG Robert

Beiträge aus dem Excel-Forum zum Thema "Zelle beim Suchen farblich hervorheben"