Excel VBA Befehle aus Folge 12: Die SuchFunktion / FindFunction

Inhalt dieser Folge:

  • Wie kann ich die Einträge eines Tabellenblattes nach bestimmten Begriffen durchsuchen?
  • Wie kann ich mit den Vergleichsoperatoren aus Folge 10 meine Suche gewinnbringend erweitern?
  • Wie kann ich mir in einem Meldefenster anzeigen lassen, in welcher Zelle der gefundene Begriff steht?
  • Wie hebe ich den gefunden Begriff in dem Tabellenblatt farblich hervor?
Download
Diese Folge als PDF kostenlos herunterladen
Folge12 Suchfunktion.pdf
Adobe Acrobat Dokument 605.1 KB

Ausgangssituation:

  • Wir starten mit dem rechts dargestellten Tabellenblatt. Dort befinden sich 8 Einträge (Namen) in Spalte A und die dazugehörigen Email Adressen befinden sich in Spalte B.
  • Im Folgenden werden wir nach verschiedenen Einträgen in dem Tabellenblatt, mit Hilfe verschiedener Kriterien, suchen.

Nach einem bestimmten Begriff suchen:

Dim finden As Range

 

'Nach dem Begriff "Schmidt" suchen

Set finden = Range("A2:A9").Find(what:="Schmidt")

 

'Ausgeben lassen wie der gefundene Begriff heißt

MsgBox "Der gefundene Begriff lautet: " & finden

 

'Ausgeben lassen in welcher Zelle der Begriff steht

MsgBox "Der Begriff befindet sich in Zelle: " & finden.Address

Die Zelle des Treffers bearbeiten:

'Die Zelle bearbeiten, in der sich der gefundene Begriff befindet

Cells(finden.Row,finden.Column).Interior.ColorIndex = 6

Weitere Suchoptionen einbauen (bspw. mit Vergleichsoperatoren):