In diesem Tutorial werden wir uns mit der Verwendung von VBA um in Excel eine Schleife durch die Zeilen eines Bereichs zu ziehen. Wir verwenden Schleifen, um zu verhindern, dass wir immer wieder das Gleiche tun. Während der Arbeit in Microsoft Excel müssen wir dieselbe Aufgabe unter Umständen mehrmals ausführen. Dies lässt sich leicht mit Schleifen in VBA In diesem Artikel werden wir demonstrieren 6 Beispiele für das Durchlaufen von Zeilen in excel mit VBA Die Schleife, die wir in den Beispielen verwenden werden, ist die ' For-Nächste Schleife '.

Download Arbeitsbuch Praxis

Das Arbeitsbuch für die Praxis können wir hier herunterladen.

6 Beispiele für das Durchlaufen von Zeilen in einem Bereich mit VBA in Excel

Zur Veranschaulichung der Beispiele dieses Tutorials wird der folgende Datensatz verwendet, der die Verkaufszahlen der ersten beiden Monate des Jahres 5 Vertriebsmitarbeiter .

1 VBA in Range mit Range-Variable zum Durchlaufen von Zeilen verwenden

Im ersten Beispiel verwenden wir die Bereichsvariable, um eine Schleife durch die Zeilen im Bereich mit VBA in Excel. Wir werden eine VBA Schleife im folgenden Datensatz.

Sehen wir uns die Schritte zur Durchführung dieses Beispiels an.

SCHRITTE:

• Gehen Sie zunächst auf das aktive Arbeitsblatt ' Bereich variabel '.
• Darüber hinaus, Rechtsklick auf und wählen Sie die Option ' Code anzeigen Sie können auch die Taste Alt + F11 um sie zu öffnen.

• Die obige Aktion öffnet ein Codefenster für dieses Arbeitsblatt.
• Geben Sie außerdem den Code in das Codefenster ein:

 Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub 

• Klicken Sie dann auf das Symbol Laufen lassen oder drücken Sie F5 um den Code auszuführen.

• Schließlich erhalten wir Ergebnisse wie im folgenden Screenshot.

Lesen Sie mehr: Excel VBA: Schleife durch Spalten im Bereich (5 Beispiele)

2 VBA anwenden, um Zeilen im Bereich mit numerischer Variable zu durchlaufen

Eine weitere Möglichkeit zum Durchlaufen von Zeilen in einem Bereich ist die Auswahl der Variablen. VBA im folgenden Datensatz, um eine Schleife durch Zeilen im Bereich mit numerischen Variablen zu ziehen.

Schauen wir uns die Schritte für diese Methode an.

SCHRITTE:

• Erstens, Rechtsklick auf auf dem aktiven Blatt mit dem Namen ' Numerischer Wert '.
• Wählen Sie dann die Option ' Code anzeigen '.

• Diese Aktion öffnet ein Code-Fenster für dieses Arbeitsblatt. Sie können auch auf Alt + F11 um dieses Code-Fenster zu öffnen.
• geben Sie den folgenden Code in dieses Fenster ein:

 Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub 

• Danach klicken Sie auf ausführen. oder drücken die F5 Taste, um den Code auszuführen.

• Der obige Code ändert das Format der Zahl in Dezimalpunkte und zeigt das Ergebnis wie in der folgenden Abbildung.

Lesen Sie mehr: VBA zum Durchlaufen von Zeilen und Spalten in einem Bereich in Excel (5 Beispiele)

3 Excel VBA im benutzerdefinierten Bereich, um Zeilen im Bereich zu durchlaufen

Im dritten Beispiel werden wir Folgendes verwenden VBA in einem benutzerdefinierten Bereich, um eine Schleife durch die Zeilen in einem Bereich zu ziehen.

Schauen wir uns die Schritte an, die mit diesem Beispiel verbunden sind.

SCHRITTE:

• Wählen Sie zu Beginn den Zellbereich ( D5:D9 ).

• Nächste, Rechtsklick auf auf dem aktiven Blatt mit dem Namen ' Benutzer ausgewählt Wählen Sie die Option ' Code anzeigen '.

• Der obige Befehl öffnet eine VBA Sie können das Code-Fenster für das aktive Arbeitsblatt auch öffnen, indem Sie auf Alt + F11 Fügen Sie den folgenden Code in das leere Codefenster ein:

 Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Zellenwert = " & w.Value Next w End Sub 

• Um den Code für dieses Arbeitsblatt auszuführen, klicken Sie auf die Schaltfläche ausführen. oder drücken die F5 Schlüssel.

• Daraufhin erscheint ein Meldungsfenster, das den ersten Wert des ausgewählten Bereichs anzeigt.

• Außerdem können Sie, wenn Sie auf OK wird der zweite Wert des ausgewählten Bereichs zurückgegeben, nämlich die Zelle D6 .

• Dieser Vorgang wird so lange fortgesetzt, bis der letzte Wert des ausgewählten Bereichs, also die Zelle D9 .

Lesen Sie mehr: Verwenden von VBA zum Zählen von Zeilen im Bereich mit Daten in Excel (5 Makros)

Ähnliche Lektüre

• Wie man mit VBA einen Bereich aus der aktiven Zelle in Excel auswählt (3 Methoden)
• Excel-Makro: Mehrere Spalten mit dynamischem Bereich sortieren (4 Methoden)
• Wie man in Excel VBA einen Bereich in ein Array umwandelt (3 Möglichkeiten)

4 Zeilen im dynamischen Bereich mit VBA durchlaufen

Im vierten Beispiel werden wir Folgendes anwenden VBA um in einer Schleife durch die Zeilen im dynamischen Bereich zu gehen. Dieses Beispiel unterscheidet sich etwas von den vorherigen. Wir können den Bereich in der Schleife für das Excel-Arbeitsblatt anpassen. Wir werden den folgenden Datensatz verwenden, um diese Methode zu veranschaulichen. Im folgenden Datensatz werden wir die Werte des Bereichs ( B8:C12 ) mit einem bestimmten Wert.

Gehen Sie einfach die folgenden Schritte durch, um diese Methode durchzuführen.

SCHRITTE:

• Erstens: Eingabewert 6 in der Zelle B1 und C in der Zelle B2 .
• Zweitens, Rechtsklick auf auf die aktive Zelle und wählen Sie die Option ' Code anzeigen '.

• Dieser Befehl öffnet ein VBA Code-Fenster für das aktive Arbeitsblatt. Eine andere Möglichkeit, dieses Code-Fenster zu öffnen, besteht darin, auf Alt + F11 .
• Fügen Sie drittens den folgenden Code in dieses Codefenster ein:

 Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("Dynamic Range").Cells(2, 2).Value + _ CStr(3 + Worksheets("Dynamic Range").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub 

• Um den Code auszuführen, klicken Sie auf die Schaltfläche ausführen. oder drücken die F5 Schlüssel.

• Infolgedessen füllt sich der Datensatz mit dem Wert $2500.00 auf die folgende Weise.

HINWEIS:

In der obigen Abbildung ist der Wert 6 steht für die ersten beiden Zeilen des Bereichs ( B8:B9 ).

• Geben Sie abschließend den Wert 9 in der Zelle B1 anstelle von 6 Das Ergebnis ist in der folgenden Abbildung zu sehen.

5 VBA einfügen, um durch die gesamte Zeile im Bereich zu schleifen

Im fünften Beispiel werden wir sehen, wie wir Folgendes anwenden können VBA um eine Schleife über die gesamte Zeile im Bereich zu ziehen. Dieses Beispiel findet die Position eines bestimmten Wertes in einer oder mehreren ausgewählten Zeilen.

Schauen wir uns also die Schritte an, die wir zur Ausführung dieses Beispiels befolgen werden.

SCHRITTE:

• Für den Anfang, Rechtsklick auf auf dem aktiven Blatt mit dem Namen ' Gesamte Reihe Wählen Sie die Option ' Code anzeigen '.

• Der obige Befehl öffnet ein leeres VBA Code-Fenster für das aktive Arbeitsblatt. Wir können dieses Code-Fenster auch aufrufen, indem wir auf Alt + F11 .
• Fügen Sie dann den folgenden Code in dieses Codefenster ein:

 Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris gefunden bei " & w.Address End If Next w End Sub 

• Klicken Sie dann auf das Symbol ausführen. oder drücken Sie die Taste F5 Taste, um den Code auszuführen.

• In der obigen Abbildung ist der hervorgehobene Wert ' Chris ' gibt den Wert an, nach dem gesucht wird. Bereichswert ' 5:9 ' zeigt an, dass wir den Wert in dem Zellbereich suchen werden ( B5:B9 ).
• Schließlich wird in einem Meldungsfenster angezeigt, dass der Wert ' Chris ' befindet sich in der Zelle B6 .

Lesen Sie mehr: VBA für jede Zeile in einem Bereich in Excel verwenden

6. jede n-te Zeile im Bereich mit Excel VBA durchlaufen

Im letzten Beispiel werden wir Folgendes anwenden VBA um eine Schleife durch alle n-te Im folgenden Datensatz werden wir die ungerade Anzahl von Zeilen unseres Datenbereichs farblich schattieren.

Sehen wir uns also die Schritte zur Durchführung dieser Methode an.

SCHRITTE:

• Erstens, Rechtsklick auf auf dem aktiven Blatt mit dem Namen ' n-te Zeile Wählen Sie die Option ' Code anzeigen '.

• Als nächstes wird ein leeres VBA Wir können dieses Code-Fenster auch aufrufen, indem wir auf Alt + F11 .
• Geben Sie dann den folgenden Code in dieses Codefenster ein:

 Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'gerade Zeilen .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub 

• Klicken Sie nun auf das Symbol ausführen. oder drücken die F5 Taste, um den Code auszuführen.

• Schließlich können wir sehen, dass der obige Code nur die Zeilen mit ungerader Anzahl aus unserem Datensatz ausblendet.

Lesen Sie mehr: Excel VBA zum Durchlaufen des Bereichs bis zur leeren Zelle (4 Beispiele)

Schlussfolgerung

Zusammenfassend lässt sich sagen, dass dieses Lernprogramm Ihnen Folgendes vermittelt 6 Beispiele für das Durchlaufen von Zeilen im Bereich mit VBA Laden Sie das in diesem Artikel enthaltene Arbeitsblatt herunter, um Ihre Fähigkeiten zu testen. Wenn Sie Fragen haben, hinterlassen Sie bitte einen Kommentar in dem unten stehenden Feld. Unser Team wird versuchen, Ihre Nachricht so schnell wie möglich zu beantworten. Halten Sie Ausschau nach weiteren originellen Microsoft Excel Lösungen in der Zukunft.