/ / Definierter Bereich in Excel VBA durchlaufen

Schleife durch definierten Bereich in Excel VBA

Im Folgenden werden wir uns ein Programm ansehen, das Durchläuft einen definierten Bereich. Zum Beispiel, wenn wir die Zahlen im Bereich ("A1: A3") im Quadrat setzen wollen. Wussten Sie, dass Sie auch einen dynamischen Bereich durchlaufen können?

Situation:

Schleife durch definierten Bereich in Excel VBA

Fügen Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt ein, und fügen Sie die folgenden Codezeilen hinzu:

1. Zuerst deklarieren wir zwei Range-Objekte. Wir nennen die Range-Objekte rng und cell.

Dim rng As Range, cell As Range

2. Wir initialisieren das Range Objekt Rng mit Range ("A1: A3").

Set rng = Range("A1:A3")

3. Fügen Sie die For Each Next-Schleife hinzu.

For Each cell In rng

Next cell

Hinweis: Rng und Zelle werden hier zufällig ausgewählt, Sie können beliebige Namen verwenden. Denken Sie daran, im Rest Ihres Codes auf diese Namen zu verweisen.

4. Als nächstes quadrieren wir jede Zelle in diesem Bereich. Fügen Sie der Schleife die folgende Codezeile hinzu, um das zu erreichen:

cell.Value = cell.Value * cell.Value

Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Schleife durch Defined Range Ergebnis

5. Wenn Sie jede Zelle in einem zufällig ausgewählten Bereich überprüfen möchten, ersetzen Sie einfach Folgendes:

Set rng = Range("A1:A3")

mit:

Set rng = Selection

6. Wählen Sie nun zum Beispiel Range ("A1: A2").

Schleife durch Auswahl in Excel VBA

Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Schleife durch Auswahlergebnis

Lesen Sie auch: