VBA: Ausreißer hervorheben
02.04.2020 09:49:54
Axel
toll, dass das Forum weiterhin verlässlich funktioniert.
Vielen Dank an der Stelle an alle Helfer hier!
Ich habe folgenden Code, der Ausreißer hervorhebt. Ich möchte zwei Änderungen haben, die ich nicht hinbekomme.
1.) Die Abweichung soll keine totale Zahl, sondern eine Prozentzahl sein (z.B. 5%). Das hab ich auch nicht mit einem anderen Datentypen hinbekommen (also z.B. Const limit As Variant = 5%) . Wie muss man sowas machen?
2.) Wie mache ich das, wenn der zu überprüfende Bereich vorher nicht bekannt ist?
Im Netz habe ich sowas gefunden:
With Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row)), aber da muss man sicher noch mehr zu schreiben. Ich brauche das Thema eigentlich öfter und würde das gerne grundsätzlich verstehen, wie man das macht, einen dynamischen Bereich zu identifizieren.
Sub AusreisserHervorheben()
Const limit As Integer = 5
For Each c In Worksheets("Tabelle1").Range("A1:I50").Cells
If c.Value > limit Then
'Schriftformatierung Fett, Kursiv, rot
With c.Font
.Bold = True
.Italic = True
.Color = RGB(255, 0, 0)
End With
'Oder Zelle rot einfärben
' With c.Interior
' .ColorIndex = 3
' End With
End If
Next c
End Sub
Axel