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
msgbox zaehler
msgbox nenner