Dieser Code ist für 2 Zahlen
18.02.2016 18:33:20
Rudi
Function PaarZiel(rngBer As Range, dVglW As Double)
Dim arZ, ii As Long, jj As Long, im As Long, jm As Long, dm As Double
arZ = rngBer.Value
dm = 9 ^ 99
For ii = 1 To UBound(arZ, 2) - 1
If Application.IsNumber(arZ(1, ii)) Then
For jj = ii + 1 To UBound(arZ, 2)
If Application.IsNumber(arZ(1, jj)) Then
If Abs(arZ(1, ii) + arZ(1, jj) - dVglW)
Anzeige