Die For-Schleife in VBA

Option Explicit
Sub Main()
  Dim X As Integer
  For X = 1 to 100 step 12
    Debug.Print X
  Next X
End Sub
Option Explicit
Sub Main()
  Dim X As Integer
  For X = 1 to 10
    Debug.Print X
  Next X
End Sub

Die For-Each-Schleife in VBA

Sub IterateCollection()
  Dim c As New Collection
  c.Add "Alpha"
  c.Add "Gamma"
  c.Add "Delta"
  c.Add "Epsilon"
  Dim v As Variant
  For Each v In c
    Debug.Print v
    If v = "Delta" Then Exit For
  Next v
End Sub

Die For-Each-Schleife in Excel 

  For Each Name In Range( Range( "A1" ), Range( "A1" ).End( xlDown ))

Mehrfachwürfe

Schreiben Sie eine Methode "wuerfel", deren erster Parameter wie zuvor ist und deren zweiter Parameter angibt, wieviele Würfel gleichzeitig geworfen werden soll. Das Ergebnis dieser Methode soll dann die Summe aller Würfe sein. So soll der Wert von "wuerfel( 6, 2 )" beispielsweise eine Zahl zwischen 2 (zweimal Wurf "1") und 12 (zweimal Wurf "6") sein.

Verschieben des Ergebnisses

Schreiben Sie eine Methode "wuerfel", deren erste beide Parameter wie zuvor sind und deren dritter Parameter zu dem Ergebnis addiert wird. So soll der Wert von "wuerfel( 6, 1, -1 )" beispielsweise eine Zahl zwischen 0 und 5 sein.

Schreiben Sie ein Unterprogramm, das eine Tabelle der 56 für das Innere einer Zelle möglicher Farben erzeugt, so daß in jeder eingefärbten Zelle die Kennzahl ihrer Farbe steht und alle 56 Farben gleichzeitig in der Tabelle erscheinen.

Gehen Sie dazu in einer Schleife alle Zahlen von 1 bis 56 durch und setzen Sie das Innere einer Zelle auf die entsprechende Farbe und geben Sie der Zelle den entsprechenden Wert.
D.h. es wird eine Variablen zuerst auf den Wert 1 gesetzt und bei jedem Schleifendurchlauf um Eins erhöht, bis der Endwert erreicht ist.

Erinnerung: Let Cells(1,10).Interior.ColorIndex =10