Beispiel 1
A1 = 89,8°
A2 = 90°
A3 = 90,1°
Der Wert mit der größten Abweichung wäre A1
Beispiel 2
A1 = 89,92°
A2 = 90°
A3 = 90,1°
Der Wert mit der größten Abweichung wäre A3
Zur Berechnung habe ich allerdings nur eine Zelle
Danke für die Hilfe
Public Function GrAbw(ByVal rng As Range, Optional ByVal soll As Double = 90) As Double
Dim v, v0, cell
v0 = 0
For Each cell In rng
v = Abs(cell - soll)
If v > v0 Then
GrAbw = cell
v0 = v
End If
Next
End Function