In VBA können Sie einen Zellbereich durchlaufen und Aktionen auf jede Zelle im Bereich anwenden.
Wenn Sie eine Bedingung für jede Zelle in einem Bereich mit VBA testen möchten, ist es am besten, den Bereich zu durchlaufen und jede Zelle zu testen. Hier sind zwei Codebeispiele, um zu veranschaulichen, wie ein Bereich durchlaufen wird. Sie können den Bereichswert für jeden Bereich ersetzen, den Sie durchlaufen möchten.
Durchschleifen des Zellbereichs
In diesem Beispiel wird eine Reihe von Zellen durchlaufen. Die if-Anweisung testet die Bedingung, ob die Zelle den Text „FindMe“ enthält und zeigt ein Meldungsfeld mit der Position des gefundenen Textes an.
1234567891011 | Öffentliche untergeordnete LoopCells()Dim c als BereichFür jedes c im Bereich("A1:A10")Wenn c.Value = "FindMe" ThenMsgBox "FindMe gefunden unter " & c.AdresseEnde WennNächstes cEnd Sub |
Gesamte Spalte durchlaufen
Dieses Beispiel durchläuft den gesamten Bereich von Spalte A.
1234567891011 | Öffentliche untergeordnete LoopColumn()Dim c als BereichFür jedes c im Bereich("A:A")Wenn c.Value = "FindMe" ThenMsgBox "FindMe gefunden unter " & c.AdresseEnde WennNächstes cEnd Sub |
Schleife durch ganze Reihe
Das nächste Beispiel durchläuft Zeile 1 und betrachtet die gesamte Zeile als Bereich.
1234567891011 | Öffentliche Sub LoopRow()Dim c als BereichFür jeden c-in-Bereich("1:1")Wenn c.Value = "FindMe" ThenMsgBox "FindMe gefunden unter " & c.AdresseEnde WennNächstes cEnd Sub |