Hallo...
Ich hoffe ich finde hier jemanden, der mit bei zwei Problemen weiterhelfen kann. Es geht wie schon im Titel beschrieben um eine Makroprogrammierung (VBA).
1. Problem:
Ich hab eine Tabelle, die in der ersten Spalte die Jahre anzeigt und in der anderen soll der Strompreis reinkommen. Das Problem ist, dass der Wert vom Strompreis sich jedes Jahr um 4% erhöhen soll. Der Wert sk und hk soll sich um 4% erhöhen.
2.Problem:
Die Summe von der Spalte Cells(9+ lv, 13) und Cells(9 +lv, 6) werden gebildet. Diese Summe soll verglichen werden, wenn die eine Summe kleiner als die andere ist, soll das Programm aufhören. Nur so wie ich es hier probiere bleibt das Programm hängen.
Ich hoffe mir hier jemand weiter helfen. Ich sag schonmal danke...
gruß smogy
For lv = 1 To 100 Step 1
Do Until gk < gk2
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 2) = lv + 2008
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 3) = wp
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 4) = ww
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 5) = abschreibung
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 6) = wp + ww + abschreibung
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv,
= lv + 2008
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 9) = wh
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 10) = sk
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 11) = hk
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 12) = abschreibung2
ActiveWorkbook.Worksheets("tabelle").Cells(9 + lv, 13) = sk + hk + abschreibung2
gk = Application.WorksheetFunction.Sum(Range(Cells(10, 6), Cells(10 + lz, 6)))
gk2 = Application.WorksheetFunction.Sum(Range(Cells(10, 13), Cells(10 + lz, 13)))
Loop
Next lv