Schleifen - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:39 Uhr

2023-01-28T00:39:52Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:39 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	* [[For-Schleifen\|For-Schleife]]: Wenn die Anzahl der Wiederholungen bekannt ist		* [[For-Schleifen\|For-Schleife]]: Wenn die Anzahl der Wiederholungen bekannt ist
	* [[Do-Schleifen\|Do-Schleife]]: Wenn es mal mehr oder weniger sein könnte		* [[Do-Schleifen\|Do-Schleife]]: Wenn es mal mehr oder weniger sein könnte
	* [[Do-Schleifen#While-Schleife\|While-Schleife]]: Eine Sonderform der Do-Schleife		* [[Do-Schleifen#While-Schleife\|While-Schleife]]: Eine Sonderform der Do-Schleife
	* [[Rekursionen\|Rekursion]]: Wenn eine Prozedur sich selbst aufruft		* [[Rekursionen\|Rekursion]]: Wenn eine Prozedur sich selbst aufruft

Pwania am 26. Februar 2019 um 10:15 Uhr

2019-02-26T10:15:52Z

← Nächstältere Version		Version vom 26. Februar 2019, 10:15 Uhr
Zeile 1:		Zeile 1:
	* [[For-Schleifen\|For-Schleife]]: Wenn die Anzahl der Wiederholungen bekannt ~~sind~~		* [[For-Schleifen\|For-Schleife]]: Wenn die Anzahl der Wiederholungen bekannt ist
	* [[Do-Schleifen\|Do-Schleife]]: Wenn es mal mehr oder weniger sein könnte		* [[Do-Schleifen\|Do-Schleife]]: Wenn es mal mehr oder weniger sein könnte
	* [[Do-Schleifen#While-Schleife\|While-Schleife]]: Eine Sonderform der Do-Schleife		* [[Do-Schleifen#While-Schleife\|While-Schleife]]: Eine Sonderform der Do-Schleife
	* [[Rekursionen\|Rekursion]]: Wenn eine Prozedur sich selbst aufruft		* [[Rekursionen\|Rekursion]]: Wenn eine Prozedur sich selbst aufruft

Pwania: Der Seiteninhalt wurde durch einen anderen Text ersetzt: „* For-Schleife: Wenn die Anzahl der Wiederholungen bekannt sind * Do-Schleife: Wenn es mal mehr o…“

2017-11-23T11:47:38Z

Der Seiteninhalt wurde durch einen anderen Text ersetzt: „* For-Schleife: Wenn die Anzahl der Wiederholungen bekannt sind * Do-Schleife: Wenn es mal mehr o…“

@@ Zeile 1: / Zeile 1: @@
-== Einfache For-Schleife ==
+* [[For-Schleifen|For-Schleife]]: Wenn die Anzahl der Wiederholungen bekannt sind
+* [[Do-Schleifen|Do-Schleife]]: Wenn es mal mehr oder weniger sein könnte
-Sub ForNext() Dim strCharacter As String <span style="Color:green">' Voraussetzung: Dem Entwickler oder dem angesprochenen Objekt ' ist die Anzahl der Elemente bekannt ' Grundgerüst: Zähler (bitte auf Größe achten!!!)</span> Dim lngIndex As Long <span style="Color:green">' Grundgerüst: ' For Zähler = Anfang To Ende ' Code ' Next Zähler ' Vom Entwickler vorgegebene Anfangs- und Endwerte</span> For lngIndex = 3 To 17 Debug.Print lngIndex Next lngIndex <span style="Color:green">' Die Eigenschaft 'Count' einer Auflistung enthält die Anzahl der Elemente</span> For lngIndex = 1 To ActiveDocument.Characters.Count strCharacter = ActiveDocument.Characters.Item(lngIndex) Debug.Print strCharacter Next lngIndex End Sub
+* [[Do-Schleifen#While-Schleife|While-Schleife]]: Eine Sonderform der Do-Schleife
+* [[Rekursionen|Rekursion]]: Wenn eine Prozedur sich selbst aufruft

Pwania: Die Seite wurde neu angelegt: „== Einfache For-Schleife == Sub ForNext() Dim strCharacter As String ' Voraussetzung: Dem Entwickler oder dem angesprochenen Objekt…“

2017-11-23T10:22:42Z

Die Seite wurde neu angelegt: „== Einfache For-Schleife == Sub ForNext() Dim strCharacter As String ' Voraussetzung: Dem Entwickler oder dem angesprochenen Objekt…“

Neue Seite

== Einfache For-Schleife ==

Sub ForNext() Dim strCharacter As String ' Voraussetzung: Dem Entwickler oder dem angesprochenen Objekt ' ist die Anzahl der Elemente bekannt ' Grundgerüst: Zähler (bitte auf Größe achten!!!) Dim lngIndex As Long ' Grundgerüst: ' For Zähler = Anfang To Ende ' Code ' Next Zähler ' Vom Entwickler vorgegebene Anfangs- und Endwerte For lngIndex = 3 To 17 Debug.Print lngIndex Next lngIndex ' Die Eigenschaft 'Count' einer Auflistung enthält die Anzahl der Elemente For lngIndex = 1 To ActiveDocument.Characters.Count strCharacter = ActiveDocument.Characters.Item(lngIndex) Debug.Print strCharacter Next lngIndex End Sub

=== Verhalten in verschiedenen Situationen ===

Standardsituation: For lngIndex = 1 To 3 Debug.Print lngIndex ' 1, 2, 3 Next lngIndex Debug.Print lngIndex ' 4 Anfangs- und Endwert sind gleich: Wird trotzdem einmal durchlaufen For lngIndex = 1 To 1 Debug.Print lngIndex ' 1 Next lngIndex Debug.Print lngIndex ' 2 Anfangswert ist geringer als Endwert: Schleife wird nicht betreten! For lngIndex = 1 To 0 Debug.Print lngIndex ' Schleife wird nicht betreten Next lngIndex Debug.Print lngIndex ' 1

== Step ==

Mit dem zusätzlichen Schlüsselwort 'Step' können wie in diesem Beispiel Elemente übersprungen werden: Sub ForNextStep() ' Beispiel: Tabellenzeilen abwechselnd färben Dim lngRow As Long Dim tblTable As Table ' Table ist ein Objekt und wird mit 'Set' zugewiesen Set tblTable = Selection.Tables.Item(1) ' Mit 'Step 2' wird bei 'Next' dem Zähler 2 hinzugezählt For lngRow = 1 To tblTable.Rows.Count Step 2 tblTable.Rows.Item(lngRow).Shading.BackgroundPatternColor = -721354855 Next lngRow End Sub

== Step -1 ==

Die Rückwärts-Schleife wird zum Löschen einzelner Elemente aus einer Auflistung verwendet: Sub ForNextStepMinus1() Dim lngRow As Long Dim tblTable As Table ' Die Word-Tabelle ist ein Objekt und wird mit 'Set' zugewiesen Set tblTable = Selection.Tables.Item(1) ' Mit 'Step -1' wird bei 'Next' die nächst obere Zeile verwendet ' Dies ist beim Löschen von Elementen aus einer Liste der einzig verwendbare Weg ' Hierbei den Anfangs- und Endpunkt vertauschen, ' also: For Zähler = Endpunkt To Anfangspunkt Step -1 For lngRow = tblTable.Rows.Count To 1 Step -1 tblTable.Rows.Item(lngRow).Delete Next lngRow End Sub

== Step 0.1 ==

Auf diesem Wege ist es möglich, in nicht Ganzzahligen Schritten durch die Schleife zu schreiten: Sub StepOneTenth() Dim dblIndex As Double For dblIndex = 0.3 To 1.2 Step 0.1 Debug.Print dblIndex Next dblIndex End Sub

== For Each ==

Mit dem Schlüsselwort 'Each' erübrigt sich die Verwendung einer Laufvariablen. Stattdessen wird das einzelne Element der Auflistung direkt angesprochen. Voraussetzung hierfür ist, dass eine entsprechende Variable vorbereitet wurde, um das Element entgegenzunehmen. Hinter dem Schlüsselwort 'In' erscheint dann die Auflistung, aus welcher die Elemente stammen. '''Bitte beachten:''' Eine 'For Each'-Schleife kann nur bei Auflistungen angewendet werden, die '''Objekte''' enthalten! Private Sub ForEach() Dim lngIndex As Long Dim rowTable As Row Dim tbl As Table Set tbl = ActiveDocument.Tables.Item(1) For Each rowTable In tbl.Rows Debug.Print rowTable.Cells(1).Range.Text ' Laufvariable muss bei For Each ein Variant bzw. ein Objekt sein! Next rowTable ' Als reguläre For-Schleife: For lngIndex = 1 To tbl.Rows.Count Set rowTable = tbl.Rows.Item(lngIndex) Debug.Print rowTable.Cells(1).Range.Text Next lngIndex End Sub '''Bitte beachten:''' Wenn die Bearbeitung der Elemente in einer bestimmten Reihenfolge erfolgen soll, welche dem Index entspricht, verwenden Sie besser die einfache For-Schleife.

== Elemente löschen: 'For Each' vs. 'Step -1' ==

Die 'For Each'-Schleife kann in vielen Situationen ebenso gut wie die 'Step -1'-Schleife eingesetzt werden, um Elemente aus einer Auflistung zu löschen. Je nach Auflistung, auf die zugegriffen wird, kann sich die 'For Each'-Schleife jedoch als unzureichend erweisen. Wenn Sie zum Beispiel einzelne Arbeitsblätter einer Arbeitsmappe löschen, passt sich die 'For Each'-Schleife insofern an, dass keine Elemente ausgelassen werden, wie es bei der regulären 'For Next'-Schleife durchaus passieren kann. In diesem folgenden Fall jedoch verhält sich die 'For Each'-Schliefe genau wie die 'For Next'-Schleife und ist somit unzureichend: Sub DeleteRowsMarkedX() Dim rngCell As Range ' Beispiel: Excel Zeilen bedingt löschen ' For Each löscht keine aufeinander folgenden Zeilen, ' zweiter Treffer wird übersprungen For Each rngCell In Range("A1:A10") If rngCell.Text = "x" Then rngCell.EntireRow.Delete Next rngCell End Sub In diesem Beispiel sollen die Zeilen, die in der ersten Spalte mit einem 'x' gekennzeichnet sind, komplett gelöscht werden. Die 'For Each'-Schleife durchläuft die Zeilen einer Tabelle wie eine reguläre For-Schleife und überspringt somit Zeilen, wenn vorangegangene Zeilen gelöscht wurden: Wenn in der ersten Spalte a, x, b, c, x, d, x, e, f, g eingetragen war, wird die Liste korrekt auf a, b, c, d, e, f, g gekürzt. Wenn jedoch a, x, x, b, c, x, x, d, x, e eingetragen wurde, bleibt a, x, b, c, x, d, e übrig. Die Rückwärts-Schleife kann dagegen immer jedes Element einer Auflistung betrachten, weil gelöschte Elemente 'hinter' ihr liegen. Sie wird daher auf jeden Fall korrekte Ergebnisse erzielen: Sub DeleteRowsMarkedX() Dim rngCell As Range Dim lngIndex As Long For lngIndex = Range("A1:A10").Rows.Count To 1 Step -1 Set rngCell = Range("A1:A10").Cells(lngIndex) If rngCell.Text = "x" Then rngCell.EntireRow.Delete Next lngIndex End Sub