Hallo,
manchmal hilft es auch sehr, Variablen zu benutzen. Dann kann man längere Rechenausdrücke oft besser lesen:
dim zaehler as double, nenner as double
with Application.WorksheetFunction
zaehler = Cells(aktZeile, Schluss) - .Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4)))
nenner = .Max(Range(Cells(aktZeile, 3), Cells(Berechnungsanfang, 3))) - .Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4)))
Cells(aktZeile, 39).value = zaehler / nenner * 100
end with
'als Test:
msgbox zaehler
msgbox nenner
Grüße, Ulrich
|