Grundlagen der Programmierung mit VBA Visual Basic for

Befehler Ein oder mehrere Befehle
Beispiel. Eine 4x4-Matrix auf das Tabellenblatt rechts und unterhalb der aktiven Zelle zaubern. Elemente
sind spaltenweise numeriert.
Sub MatrixOnTable()
Dim i As Integer, j As Integer, n As Integer
n = 0
For j = 0 To 3
For i = 0 To 3
n = n + 1
ActiveCell.Offset(i, j).Value = n
Next i
Next j
End Sub
For Each ... Next
Im Unterschied zur "For ... Next"-Schleife wird kein Zähler hoch- oder hinuntergezählt, sondern eine
Auflistung von Datenfeldern oder Objekten abgearbeitet. Die Reihenfolge orientiert sich an der Speicherplatzfolge.
Syntax
For Each Element In Gruppe
Befehle
Next
Parameter Verwendung
Element Variable, die ein einzelnes Element der Auflistung
enthält
Gruppe Auflistung von Daten oder Objekten
Beispiel. Eine 4x4-Matrix auf das Tabellenblatt rechts und unterhalb der aktiven Zelle zaubern. Matrix
zeilenweise numerieren. D.h, intern werden Zellbereich zeilenweise abgearbeitet.
Sub MatrixOnTable()
Dim NextCell As Range, ThisRegion As Range
n = 0
Set ThisRegion = ActiveCell.Resize(4, 4)
For Each NextCell In ThisRegion
n = n + 1
NextCell.Value = n
Next
End Sub
3.6.3.1 Schleifen abbrechen
Eine Schleife kann während der Ausführung beendet werden.
Syntax
Exit Do
Exit For
Parameter Verwendung
Beispiel. Eine Endlosschleife nach 100 Durchläufen beenden.
Sub Count()
Dim i As Integer
i = 0
Do
i = i + 1
If i > 100 Then Exit Do
Loop
MsgBox i
End Sub
38