Code Snippet "VBA allgemein"

For-Schleife rückwärts durchlaufen mit STEP

'For-Schleife rückwärts
Sub procForRueckwaerts()
  Dim intCounter As Integer
  Dim intResultat As Integer
  
  For intCounter = 100 To 10 Step -10
    intResultat = intResultat + intCounter
  Next
  MsgBox ("Resultat " & intResultat)

End Sub