top of page

GRUNDLAGENKURSE  |  DIE WICHTIGSTEN BEFEHLE

​#12 Die SuchFunktion

Excel VBA Befehle Folge 12: Suchfunktion (Einträge und Begriffe in Zellen suchen)

Inhalt dieser Folge:

  • Wie kann ich mein Tabellenblatt nach bestimmten Einträgen durchsuchen?

  • Wie bringe ich dabei die Vergleichsoperatoren (Folge 10) in meine Suche ein?

  • Wie kann ich mir in einer MsgBox anzeigen lassen, in welcher Zelle sich der gefundene Begriff steht?

  • Wie hebe ich den gefundenen Begriff in dem Tabellenblatt farblich hervor?

Den Inhalt der Folge kostenlos als PDF einsehen
Beispiel 1: Nach einem Zelleneintrag suchen & ausgeben lassen, in welcher Zelle sich der Eintrag befindet.
 

Sub Beispiel1()

 

Dim finden As Range

 

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

 

'Ausgeben lassen wie der gef undene 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 End

 

Sub

 

Sub Beispiel2()

Dim finden As Range

 

'Groß und Kleinschreibung beachten
Set finden = Range("A2:A9").Find(what:="schmidt", MatchCase:=True)

 

'Ausgeben lassen in welcher Zelle der Begriff steht
MsgBox "Der Begriff befindet sich in Zelle: " & finden.Address End

Sub

Beispiel 5: Mit dem gefundenen Begriff arbeiten
 

Sub Beispiel5()

 

Dim finden As Range Set finden = Columns(2).Find(what:="*weber*")

 

'Den gefundenen Begriff ansprechen
Cells(finden.Row, finden.Column).Interior.ColorIndex = 6

 

End Sub

Beispiel 2: Groß- und Kleinschreibung berücksichtigen
 

'Allgemein
MatchCase:= False

-> Groß- und Kleinschreibung wird nicht berücksichtigt

 

MatchCase:= True

-> Groß- und Kleinschreibung wird berücksichtigt

Beispiel 3: Suchen mit dem Fragezeichen-Operator
 

Sub Beispiel3()

 

Dim finden As Range

 

'Das Fragezeichen ist ein Platzhalter für ein beliebiges Zeichen
Set finden = Columns(1).Find(what:="schmi?t")

 

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

 

End Sub

Beispiel 4: Suchen mit dem Stern-Operator
 

Sub Beispiel4()

 

Dim finden As Range

 

'Der Sternoperator ist ein Platzhalter für beliebig viele Zeichen
Set finden = Columns(2).Find(what:="*weber*")

 

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

 

End Sub

Alle Folgen der VideoReihe auf einen Blick
Folge 01   Arbeitsmappen und Tabellenblätter ansprechen, sortieren, ...

Folge 02   Zellen ansprechen

Folge 03   Meldeboxen, MsgBox (PopUpFenster)

Folge 04   Schrifteinstellungen (Fett, Kursiv, Schriftart, Schriftfarbe, Schriftgröße, ...)

Folge 05   Variablen & Datentypen in VBA

Folge 06   Arrays / Datenfelder in VBA

Folge 07   For Next - Schleifen in VBA

Folge 08   Dynamische Arrays

Folge 09   Rechenoperationen

Folge 10   Vergleichsoperatoren

Folge 11   Logische Operatoren

Folge 12   SuchFunktion (Einträge & Begriffe in Zellen suchen)

Folge 13   If Then Else - Verzweigungen in VBA

Folge 14   Do While Loop - Schleifen in VBA

Folge 15   Endlosschleifen verhindern

Folge 16   Die SortierFunktion (sortieren, nach mehreren Kriterien)

Folge 17   Select Case - Verzweigungen in VBA

Folge 18   InputBox (gestalten und Eingaben verwenden)

Folge 19   For Each - Schleifen in VBA

Folge 20   Borders-Eigenschaften (Dynamisches Tabellendesign erstellen)

Folge 21   Laufzeitfehler & Syntaxfehler - finden und beheben

Folge 22   On Error GoTo - Laufzeitfehler abfangen

Folge 23   Alle Farben in VBA nutzen (ColorIndex, vb Color, RGB)

Folge 24   Zeichen ersetzen mit der REPLACE Funktion

Folge 25   Zeichen trennen mit der SPLIT Funktion

Folge 26   Zeichen verbinden mit der JOIN Funktion

Folge 27   Auszug aus einer Zeichenkette - LEFT, RIGHT, MID Funktion

Folge 28   Zeichenketten vergleichen mit UCase & LCase

Folge 29   Arbeitsmappen Ereignisse (Open, BeforeClose, BeforeSave)

Folge 30   Tabellenblatt Ereignisse (Change, BeforeDoubleClick)

Folge 31   Zeilen und Spalten fixieren (FreezePanes)

Folge 32   Kommentare einfügen mit VBA (AddComment)

Folge 33   Zellen verbinden & Warnmeldungen ignorieren

bottom of page