Hallo,

Ich möchte diese UDF gerne so anpassen, dass sie lediglich prüft ob sich die Werte in der Test Range überhaupt voneinander unterscheiden und keinen wahren "Prüfwert" (InitValue) benötigt. Dabei sollen Leerzellen weiterhin ignoriert werden. Hat jemand eine Idee wie ich das anstelle?

Public Function CompVals(InitValue, TestRange As Range) As String
    For Each v In TestRange
        If v <> "" Then
            If v <> InitValue Then
                CompVals = "Not Equal"
                Exit Function
            End If
        End If
    Next
    CompVals = "All Equal"
End Function