Letzte ausgefüllte Zeile
23.05.2002 13:31:42
R@lf Kredel
Habs soweit( der Range soll jetzt flexibel werden):
Worksheets("Auswertung").Range("F1:F6014").Select
Selection.FormulaR1C1 = "=IF(RC[-3]>AVERAGE(R2C[-3]:R10C[-3])+0.3,RC[-3],"""")"
Danke im Voraus für die Antwort
Ralf