Sub Schleifenzähler ()
Set i as Integer
For i = 1 to 1000
Msgbox(, die das Programm nicht anhält) i & "Schleifen"
next i
End Sub
LG, Barbara
Sub Schleifenzähler ()
Set i as Integer
For i = 1 to 1000
Msgbox(, die das Programm nicht anhält) i & "Schleifen"
next i
End Sub
Sub Schleifenzähler()
Dim i As Integer
For i = 1 To 1000
Cells(1, 1) = i
Next i
End Sub
Sub Schleifenzähler()
Dim i As Integer
For i = 1 To 1000
Cells(1, 1) = i
Next i
End Sub