VBA Iteration für n Unternehmen
26.12.2013 17:53:46
Merton
ich habe ein Makro geschrieben, welches den gesuchten Wert über eine Periode von 13 Monaten iterativ berechnet.
In Spalte I15:I27 werden als Startpunkt der Iteration zunächst geschätzte Werte eingetragen, die bereits gegeben sind. Schließlich werden die geschätzten Werte über in der Spalte J15:J27 enthaltene Formeln angenähert. Die in Spalte J enthaltenen Formeln beziehen sich dabei auf die geschätzten Werte aus Spalte i.
Die Aufgabe meines Makros ist es nun, die in Spalte J angenäherten Werte so lange in Spalte I zu kopieren, bis K27 (SUMMEXMY2(I15:I27;J15:J27)) kleiner als 10^-10 ist.
Das Makro sieht wie folgt aus:
Sub Iterate()
Do While Range("K27") > 10 ^ -10
'Copy asset values from iteration k+1 to iteration k
Range("I15:I27") = (Range("J15:J27"))
Loop
End Sub
Dieses Makro funktioniert einwandfrei. Allerdings kann man damit den gesuchten Wert nur für ein einziges Unternehmen mit 13 Perioden berechnen. Ich möchte den gesuchten Wert jedoch für 800 Unternehmen berechnen. Dabei sind für jedes Unternehmen genau 13 Werte in Spalte I gegeben, welche direkt untereinander aufgelistet werden.
Würde ich den VBA Code für jedes Unternehmen manuell eingeben, dann müsste er für das zweite Unternehmen der Liste wie folgt lauten:
Sub Iterate()
Do While Range("K40") > 10 ^ -10
'Copy asset values from iteration k+1 to iteration k
Range("I28:I40") = (Range("J28:J40"))
Loop
End Sub
Da ich den Code jedoch nicht für 800 Unternehmen manuell eingeben möchte suche ich nun ein Makro, welches mir diese Arbeit erspart.
Ich bin absoluter VBA Neuling und würde mich daher über jegliche Hilfe sehr freuen!
Vielen Dank im Voraus!
Merton