Average
06.10.2005 13:15:38
Daniel
Ich hatte gestern schon mal das Problem genannt und mir wurde auch geholfen. Aber leider ist es nocht nicht vollständig gelöst. Hier erstmal der Code dazu.
Private Sub Bereinigung_Click()
Const OBERGRENZE As Long = 150000
Const UNTERGRENZE As Long = 0
Const SPALTE As Integer = 6
Dim rng As Range
Dim c As Range
Dim lngAvg As Long
Set rng = Range(Cells(SPALTE, 8), Cells(Rows.Count, 8).End(xlUp))
For Each c In rng.Cells
lngAvg = WorksheetFunction.Average(rng) --- Fehlermeldung---
If c < UNTERGRENZE Or c > OBERGRENZE Then c = lngAvg
Next
End Sub
Der code geht eine Spalte durch und ändert alle Werte die überhalb oder unterhalb der Grenzen liegen. Er ändert ihn immer in den Durschnitswert. Er bringt immer in der oben gezeigten Zeile eine Fehlermeldung. "Unable to get the Average property of the WorksheetFunction class"
Ich habe einen englische version von Excel 2002.
Das ist eine abgespeckte Version meines Workbooks.
https://www.herber.de/bbs/user/27240.xls
Kann mir jemand noch helfen? Vielen Dank im vorraus.
Daniel