Suchfunktion mit zwei Anweisungen in Pivot
04.01.2017 20:49:15
Kyra
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