Schleife Funktioniert nicht !!
05.04.2003 04:59:50
Roland T.
ich hab´da ein kleines Problem mit einen Schleife.
Wenn ich ein msgbox immer um ein raufzählen lasse funktioniert
die Schleife. Sobald ich aber einige Funktionen mit den
Befehl Call Irgendeine Funktion reinhänge, macht sie einen durch lauf. Die Anzahl der durchläufe gebe ich mittel Variable vor.
Kann mir da jemand helfen.
Dim AnzU As Integer ' Zähler
Dim Vrb As Integer
Vrb = Sheets("Clip").Cells(1, 3)' Gibt anzahl durchläufe an
For AnzU = 1 To Vrb
If AnzU > Vrb Then Exit For
Call Anweisung
Next AnzU
Vielen Dank auch !!
Mfg. Roland Todaro