Hallo Zusammen,

ich möchte gerne über eine Suchfunktion einen Eintrag in meiner Exceldatei aufspüren.

Dabei soll das gesuchte Feld:

1. eingefärbt werden (durch eine in vba definierte Farbe)

2. angezeigt werden (die Tabelle soll an die entsprechende Stelle "springen". Grund: Die Tabelle hat >10.000 Zeilen)

Meine VBA-Code sieht bisher wie folgt aus:

Sub SucheEintraginSpalteA()

    Dim strSuchbegriff As String
    Dim rngBereich As Range
    Dim rngTreffer As Range

    strSuchbegriff = InputBox("Bitte Suchbegriff eingeben")

      If Len(strSuchbegriff) > o Then

            If Trim(strSuchbegriff) <> "" Then
            Set rngBereich = Tabelle3.Range("A:A")

            rngBereich.Interior.ColorIndex = xlColorIndexNone
            Set rngTreffer = rngBereich.Find _
            (what:=strSuchbegriff, lookat:=xlPart)

                If Not rngTreffer Is Nothing Then _
                    rngTreffer.Interior.ColorIndex = 4
                    rngTreffer.Cells.Select

                Else
                MsgBox "Der Suchbegriff " & strSuchbegriff & " konnte nicht gefunden werden!"

                End If

            End If

       End If

End Sub

Das einfärben alleine klappt wunderbar. Jedoch schaffe ich es nicht, die zweite Anweisung (Sprung zur gesuchten Zelle) einzufügen.

Sobald ich nämlich die zweite Anweisung einbaue, funktioniert der Code nicht mehr (s. fett gedruckte Codezeile).

Da ich mit meiner vba Karriere noch am Anfang stehe, freue ich mich über jede Hilfe :-)

Vielen Dank im Voraus!

Grüße

Kyra