Microsoft Office Tutorials and References
In Depth Information
6.5 For-Each-Schleife
Zur Erläuterung:
Zunächst wird die Variable WB als Verweis auf ein Objekt vom Typ
Workbook deklariert.
Dim ...
As Objekttyp
Die Zeile For Each WB In Workbooks leitet die Schleife ein. Jedes Ele-
ment der Auflistung Workbooks wird nun durchlaufen. Innerhalb der
For - Each -Schleife wird das jeweils aktuelle Element automatisch mit
WB bezeichnet. Die Elemente müssen nicht einzeln mit Set WB = zuge-
wiesen werden.
For Each ... In ...
In diesem Fall wird nur der Name des jeweils aktuellen Elements
einer Ausgabeliste hinzugefügt.
Nach dem Next wird zur deutlicheren Darstellung WB geschrieben,
dies könnte auch weggelassen werden.
Next ...
Ein weiteres Beispiel mit der Auflistung Worksheets , also der Liste aller
Tabellenblätter:
Sub ForEachWorksheet()
Dim WS As Worksheet
Dim Ausgabe As String
Ausgabe = "Worksheets: "
For Each WS In ThisWorkbook.Worksheets
Ausgabe = Ausgabe & WS.Name & " "
Next WS
MsgBox Ausgabe
End Sub
Das Ergebnis:
Abbildung 6.8
Liste der Worksheets
Zur Erläuterung:
Die Variable WS wird als Verweis auf ein Objekt vom Typ Worksheet
deklariert.
Search JabSto ::




Custom Search