Office: (Office 2010) Wert suchen der am nächsten dran ist

Bei Excel 365 ergibt folgendes Makro einen Fehler:

Sub MinimalZuA1() 'Konstruktionsmakro für eine Tabelle
Workbooks.Add xlWorksheet
[A1] = 100: [B2:D2] = Array(1, 3, 197)
[B2:D3].FormatConditions.Add Type:=xlExpression, Formula1:="=MIN(ABS($B2:$D2-$A$1))=ABS(B2-$A$1)"
[B2:D3].FormatConditions(1).Font.ColorIndex = 3
End Sub

Unter 2010 könntest Du damit meine Formel vermutlich nachvollziehen.

 

Nur über Verwendung eines definierten Namens klappt es auch bei 365 (Stand Ende Februar 2018):

Sub MinimalZuA1() 'Konstruktionsmakro für eine Tabelle
Workbooks.Add xlWorksheet
[A1] = 100: [B2:D2] = Array(1, 3, 197)
ActiveWorkbook.Names.Add Name:="MinAbstand", RefersToR1C1:="=MIN(ABS(RC2:RC4-R1C1))=ABS(RC-R1C1)"
[B2:D3].FormatConditions.Add Type:=xlExpression, Formula1:="=MinAbstand"
[B2:D3].FormatConditions(1).Font.ColorIndex = 3
End Sub

Das ist aber ein dicker Hund!

EDIT: Ich habe #16 ausgeführt (in Excel 365 ist es falsch) und die Tabelle in OneDrive gespeichert. In Excel-Online geöffnet: korrekt! Danach in Excel 365 geöffnet: Nun auch korrekt.