Nein, das ist nicht möglich (oder zumindest nicht ohne Aufwand - und dann könntest du ja beim manuellen Übersetzen wieder Fehler machen, was der Sache nicht dienlich ist.
Ich habe dir hier deinen Code mal umgebrochen, dann siehst du zum einen, dass du mehr Klammern als nötig verwendest und zum anderen fällt dir eine falsche Klammersetzung evtl. auf (der Code ist so natürlich nicht im VBE nutzbar):
Cells(aktZeile, 39).Formula =
(
(
Cells(aktZeile, Schluss) -
(Application.WorksheetFunction.Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4))))
) / (
Application.WorksheetFunction.Max(Range(Cells(aktZeile, 3), Cells(Berechnungsanfang, 3))) -
(Application.WorksheetFunction.Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4))))
) * 100
)
Und hier das gleiche mit weniger Klammern (sollte identisch sein):
Cells(aktZeile, 39).Formula =
(
Cells(aktZeile, Schluss) -
Application.WorksheetFunction.Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4)))
) / (
Application.WorksheetFunction.Max(Range(Cells(aktZeile, 3), Cells(Berechnungsanfang, 3))) -
Application.WorksheetFunction.Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4)))
) * 100
Hier das gleiche nochmal mit evtl. besserer Übersicht. So kannst du es auch wirklich im Code benutzen:
With Application.WorksheetFunction
Cells(aktZeile, 39).Formula = _
( _
Cells(aktZeile, Schluss) - _
.Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4))) _
) / ( _
.Max(Range(Cells(aktZeile, 3), Cells(Berechnungsanfang, 3))) - _
.Min(Range(Cells(aktZeile, 4), Cells(Berechnungsanfang, 4))) _
) * 100
End With
Grüße, Ulrich
|