[Nenilix]

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 ??