VBA – Programmierung mit Excel Grundlagen

Seite 78
Manipulation von Zellen und Zellbereichen
✘ Die Funktionskombination EINFÜGEN / NAMEN / FESTLEGEN / LÖSCHEN der Excel –
Oberfläche kann ebenfalls zu Löschen benutzt werden.
10.7 Suchen von Zellinhalten
Das Suchen nach bestimmten Zellen oder Zellbereichen ist oft nur über das Suchen nach
bestimmten Inhalten der Zellen zu bewerkstelligen. Im VBA sind dafür mehrere für ein RANGE
– Objekt definierte Methoden vorhanden, von denen zwei hier vorgestellt werden.
Die beiden vorgestellten Methoden besitzen eine Vielzahl von recht komplexen Argumenten,
auf die hier nicht näher eingegangen wird – näheres siehe Online – Hilfe.
Die nachfolgenden Beispiele demonstrieren die einfachste Suche und das Ersetzen von
Zelleninhalten.
FIND Sucht eine Bereich nach Informationen durch und gibt im Erfolgsfall
eine Range – Objekt zurück.
REPLACE Sucht und ersetzt Zelleninhalte
➨ Find gibt ein Range – Objekt zurück, welches anschließend ausgewertet werden muß.
Wert1 = Range("B1:D5").Find("Summe:").Value
MsgBox Wert1
Wert1 = Range("B1:D5").Find("Summe:").Address
Range(Wert1).Value = 2222
Range("B1:D5").Replace "Summe2:", 2222
Range("B1:D5").Find("Summe:").Interior.Pattern = 2
Im ersten Beispiel wird im Bereich B1:D5 die Zelle mit dem String Summe: gesucht und ihr
Inhalt (Value) in die Variable Wert1, die per MsgBox ausgegeben wird, übertragen.
Im zweiten Beispiel wird die Adresse der Zelle mit dem String Summe: ermittelt und der
Variablen Wert1 zugewiesen. Diese wird anschließend für die Zuweisung eines neuen
Wertes an die Zelle benutzt.
Die erste Anweisung der dritten Beispielgruppe erledigt die im Beispiel 2 in zwei
Anweisungen ausgeführte Wertänderung in einer Anweisung.
Die zweite Anweisung weist der Zelle mit dem gesuchten Inhalt ein Hintergrundmuster zu.
10.8 Suchen von Zelleninhalten über Schleifen
Die Suche nach Zelleninhalten, die in mehreren Zellen auftreten können ist am einfachsten
über EACH – Schleifen möglich. Dabei können die Größer- / Kleiner – Operatoren, das
Gleichheitszeichen oder der LIKE – Operator benutzt werden.
Die Suche über Schleifen hat noch einen zusätzlichen Vorteil – es ist möglich nicht nur nach
Zellinhalten zu suchen, sondern auch nach Formatelementen (Näheres zu diesen Elementen
–siehe Folgekapitel).
Für die Suche nach Zelleninhalten wird die Eigenschaft VALUE benutzt. Dabei ist zu
beachten, daß die Inhalte unterschiedlich sein können – numerisch, alphanumerisch oder
aus Formeln bestehend. Entsprechend muß in den Suchkonstrukten reagiert werden, um
nicht unnötige Fehlermeldungen zu erzeugen.
Die Anweisungen des folgenden Beispiels sollen die Suche nach numerischen Werten
demonstrieren, die ein bestimmtes Kriterium erfüllen (> 20). Im Positivfall soll der
Zellenhintergrund farblich abgesetzt werden: