Danke!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
If Not Range("A1").GoalSeek(Goal:=2.5, ChangingCell:=Range("B1")) Then
Range("C1") = "Undef."
End If
Cancel = True
End If
End Sub
P.S. Ich könnte Dir auch zeigen wie Du alle Stellen bekommst (theoretisch bis zu 4)