Hallo liebe VBA Freunde!
Ich bin auf der Fehlersuche und finde ihn leider nicht....
Möchte das aus einem markierten Bereich jene Werte hervorgehoben werden die görßer sind als X.
Was mache ich hier schon wieder falsch????
Sub WerteGrößerAlsHervorheben()
Dim myRange As Range
Dim myCell As Range
Dim i As Integer
i = InputBox("Eingabe des Wertes -> Größer als:", "Größer als...")
Set myRange = Selection
For Each myCell In myRange
If WorksheetFunction.CountIf(myRange, myCell.Value) > i Then
myCell.Interior.ColorIndex = 43
End If
Next myCell
End Sub
|