![]() |
Hilfe bei Makroprogrammierung (Excel)
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, 8) = 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 |
Probl.1)
Du kannst in deiner Schleife ( vor dem Loop ) die Werte sk und hk neu definieren. z.b. sk = sk * 4% und hk = hk * 4% Probl.2) If Cells(9+lv,13).value < Cells(9+lv,6).value then exit sub end if Meinst Du das ungefähr so ?? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:13 Uhr. |
Powered by vBulletin® (Deutsch)
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.