Schleife programmieren?
07.10.2004 00:00:26
ThomasA.
habe mit dem Rekorder folgendes Makro aufgezeichnet (zellbezeichung hab ich manuell geändert):
Sub Makro3()
Range("A1").Select
ActiveCell.FormulaR1C1 = [A10]
Range("A2").Select
ActiveCell.FormulaR1C1 = [B10]
Range("A3").Select
ActiveCell.FormulaR1C1 = [C10]
Range("A4").Select
ActiveCell.FormulaR1C1 = [D10]
Application.Run "Makro1"
Range("F10").Select
ActiveCell.FormulaR1C1 = [F4]
End Sub
In der Tabelle A10:D200 stehen Zahlen drin, in Spalte F10:F200 sollen die Ergebnisse rein. Die Zellen A1-A4 werden für das Makro1 benötigt welches das Ergebnis in Zelle F4 liefert.
Wie muss der Code verändert werden, damit das makro ständig wiederholt wird, dabei eine zeile in der Tabelle runtergeht die werte z.b. A11 B11 C11 D11 nimmt und das ergebnis in die zelle F11 schreibt? Das Makro soll dann aufhören wenn keine Daten mehr in der Tabelle stehen.
Vielen vielen Dank für eure Hilfe im voraus.
Gruß
ThomasA.