Hilfe bei Suchfunktions button

[AndyExcel77]

Hallo,

ich habe folgenden Code bei mir um eine Suchfunktion über ein Button zu starten, leider zeigt er mir nur die Zeilen an wo die betreffenden Suchwörter stehen,

ich möchte aber gerne das der Cursor in die Zeilen springt.

Bitte um Hilfe

DANKE

Sub Suchfunktion()

    Dim bFound As Boolean
    Dim rC As Range
    Dim tAddr As String
    Dim tSearch As String
    tSearch = InputBox("Suche nach:", "Suchen")
    If tSearch = "" Then Exit Sub
    With ActiveSheet.Cells
        Set rC = .Find(tSearch, LookIn:=xlValues)
        If Not rC Is Nothing Then
            tAddr = rC.Address
            Do
                MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Value
                bFound = True
                Set rC = .FindNext(rC)
            Loop While Not rC Is Nothing And rC.Address <> tAddr
        End If
    End With
    If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

[Kuwer]

Hallo Andy,

Sub Suchfunktion()

   Dim bFound As Boolean
   Dim rC As Range
   Dim tAddr As String
   Dim tSearch As String
   tSearch = InputBox("Suche nach:", "Suchen")
   If tSearch = "" Then Exit Sub
   With ActiveSheet.Cells
       Set rC = .Find(tSearch, LookIn:=xlValues)
       If Not rC Is Nothing Then
           tAddr = rC.Address
           Do
               rC.Select
               MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Value
               bFound = True
               Set rC = .FindNext(rC)
           Loop While Not rC Is Nothing And rC.Address <> tAddr
       End If
   End With
   If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

Gruß Uwe

[AndyExcel77]

Hallo Uwe,

Vielen DANK !

Gibt es noch die Möglichkeit die angezeigten Ergebnisse farbig zu hinterlegen ?

Vielen Dank

[Kuwer]

Hallo Andy,

Gibt es noch die Möglichkeit die angezeigten Ergebnisse farbig zu hinterlegen ?

Sub Suchfunktion()
   Dim bFound As Boolean
   Dim rC As Range
   Dim tAddr As String
   Dim tSearch As String
   tSearch = InputBox("Suche nach:", "Suchen")
   If tSearch = "" Then Exit Sub
   With ActiveSheet.Cells
       Set rC = .Find(tSearch, LookIn:=xlValues)
       If Not rC Is Nothing Then
           tAddr = rC.Address
           Do
               rC.Select
               rC.Interior.ColorIndex = 4
               MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Value
               rC.Interior.ColorIndex = 0
               bFound = True
               Set rC = .FindNext(rC)
           Loop While Not rC Is Nothing And rC.Address <> tAddr
       End If
   End With
   If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

Gruß Uwe

[AndyExcel77]

Hallo Andy,

Sub Suchfunktion()
   Dim bFound As Boolean
   Dim rC As Range
   Dim tAddr As String
   Dim tSearch As String
   tSearch = InputBox("Suche nach:", "Suchen")
   If tSearch = "" Then Exit Sub
   With ActiveSheet.Cells
       Set rC = .Find(tSearch, LookIn:=xlValues)
       If Not rC Is Nothing Then
           tAddr = rC.Address
           Do
               rC.Select
               rC.Interior.ColorIndex = 4
               MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Value
               rC.Interior.ColorIndex = 0
               bFound = True
               Set rC = .FindNext(rC)
           Loop While Not rC Is Nothing And rC.Address <> tAddr
       End If
   End With
   If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

Gruß Uwe

Hallo,

Danke, leider zeigt er mir einen Fehler an und zwar in folgender Zeile

 rC.Interior.ColorIndex = 4


DANKE

[AndyExcel77]

[AndyExcel77]

Hallo Andy,

Sub Suchfunktion()
   Dim bFound As Boolean
   Dim rC As Range
   Dim tAddr As String
   Dim tSearch As String
   tSearch = InputBox("Suche nach:", "Suchen")
   If tSearch = "" Then Exit Sub
   With ActiveSheet.Cells
       Set rC = .Find(tSearch, LookIn:=xlValues)
       If Not rC Is Nothing Then
           tAddr = rC.Address
           Do
               rC.Select
               rC.Interior.ColorIndex = 4
               MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Value
               rC.Interior.ColorIndex = 0
               bFound = True
               Set rC = .FindNext(rC)
           Loop While Not rC Is Nothing And rC.Address <> tAddr
       End If
   End With
   If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

Gruß Uwe

DANKE hat doch Funktioniert

-CLOSED-