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?
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)