myGully.com

myGully.com (https://mygully.com/index.php)
-   Programmierung (https://mygully.com/forumdisplay.php?f=67)
-   -   Hilfe bei Makroprogrammierung (Excel) (https://mygully.com/showthread.php?t=1906392)

smogy 08.09.09 10:53

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

Nenilix 10.09.09 16:21

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.