Excel VBA - Schleifen
Aus SAP-Wiki
Zur Navigation springenZur Suche springen
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