Hallo Freddy,
so wie du es beschreibst, waere das mit einer Schleife nicht so zweckmaessig. Jedenfalls mit der Schleife, wie sie jetzt ist. Dann wuerde die Schleife naemlich einfach durchrattern und du haettest als Ergebnis immer nur die letzte Berechnung der Schleife, weil die Ergebniszelle ja immer ueberschrieben wird. Hier muesste man praktisch nach jedem Schleifendurchlauf eine Pause einarbeiten. Sonst kannst du das Ergebnis nicht ablesen. Eine Moeglichkeit waere, das jeweilige Ergebnis in einer sogenannten Messagebox auszugeben. Die muss dann immer mit OK bestaetigt werden, dann laeuft der Code erst weiter.
Die Zeile fuer den Schleifenstart gibst du in dieser Zeile an:
For i = 2 To letzteA - Anzahl - 1 'Schleifenstart in Zeile 2, da Zeile 1 Ueberschrift ist
Du muesstest praktisch die 2 durch die Zeilenzahl ersetzen, wo du anfangen moechtest. Fuer dein Beispiel also:
For i = 10 To letzteA - Anzahl - 1 'Schleifenstart in Zeile 10
Das mit der Ausgabe, wie ich es gemacht habe, war nur so eine Idee von mir. Damit man weiss, welches Ergebnis aus welchem Bereich herruehrt. Ich weiss ja nicht, was du mit den jeweiligen Ergebnissen machen willst. Ich vermute, du willst das nur ablesen und notieren, oder so.
Wenn die Idee mit der Messagebox fuer dich ok ist, sag bescheid. Dann kann ich das noch einbauen.
Gruss Torsten
|