Excel VBA - Schleifen

N Ausführungen einer Schleife

Sub SchleifenMakro()
  intZ as integer

  For intZ = 1 to 10
    Debug.Print "Schleifendurchlauf: " & intZ
  Next intZ

End Sub

For Each - Next

Sub AlleMarkiertenZellenFaerben()
   Dim Zelle as Range
    
   For Each Zelle In Selection
       Zelle.Interior.ColorIndex = 3
   Next Zelle
 End Sub