VBA - "Outliers" finden

[remix92]

hallo zusammen,

Ich würde gerne Ausreißer über VBA spalteweise finden und durch das Wort "Outlier" ersetzen.

Im Internet habe ich auch einen Code gefunden, der das macht, aber nur für eine Spalte.
Nun habe ich versucht, den Code so umzuschreiben, damit es für alle Spalten ( Ab Spalte 26 bis zur letzten Spalte) durchgeführt wird...
Leider ohne Erfolg...

hier mal der eigentliche Code, der nur für Spalte A funktioniert:

PHP-Code:

Sub outliers()
Dim dblAverage As Double, dblStdDev As Double
Dim rTest As Range, Rng As Range

    Set rTest = Range("AA2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    dblAverage = WorksheetFunction.Average(rTest)
    dblStdDev = WorksheetFunction.StDev(rTest)
        For Each Rng In rTest
            If Rng > dblAverage + 3 * dblStdDev Or Rng < dblAverage - 3 * dblStdDev Then
            Rng.Value = "Outlier" or delete the data with Rng.clearcontents
            End If
        Next
End Sub 


hier wäre der bearbeitete Code, der ab Spalte 26 - Ende "funktionieren sollte":

PHP-Code:

Sub outliers()
Dim dblAverage As Double, dblStdDev As Double
Dim rTest As Range, Rng As Range
Dim i As Long
Dim letztespalte As Long
Dim letztezeile As Long


letztespalte = ActiveSheet.Cells(1, 256).End(xlToLeft).Column

For i = 26 To letztespalte 
    letztezeile = ActiveSheet.Cells(1048576, i).End(xlUp).Row
    Set rTest = Range(Cells(2, i), Cells(letztezeile, i))
    dblAverage = WorksheetFunction.Average(rTest)
    dblStdDev = WorksheetFunction.StDev(rTest)
        For Each Rng In rTest
            If Rng > dblAverage + 3 * dblStdDev Or Rng < dblAverage - 3 * dblStdDev Then
            Rng.Value = "Outlier" or delete the data with Rng.clearcontents
            End If
        Next
Next i
 
End Sub 


Bekomme leider fir Fehlermeldung: "Anwendungs- oder objektorientierter Fehler"

Wäre für jeden Tipp sehr dankbar

[EarlFred]

Zitat:

Bekomme leider fir Fehlermeldung: "Anwendungs- oder objektorientierter Fehler"

Aha. Und wo?

Vor "or delete the data with Rng.clearcontents" gehört ein Kommentarzeichen ('), sonst stimmt die Syntax nicht

[remix92]

Ah Sorry
Kommentarzeichen ist im eigentlichen Code natrülich gesetzt

Der Fehler taucht bei der Zeile:

PHP-Code:

dblStdDev = WorksheetFunction.StDev(rTest) 


auf

Gruß

[Hasso]

Hallo remix92,

stehen irgendwo im Bereich rTest vielleicht keine Zahlen, sondern Text? Eine Beispielmappe wäre hilfreich.

[remix92]

Hallo,

Ohja... Es stehen in einigen Feldern Texte...

Ich werde morgen eine Beispielmappe hochladen

Gruß