Option Explicit
Sub Leihe()
Dim Durchmesser(1 To 3, 1 To 37) As Double 'Array für Stiftdurchmesser erstellen
Dim Eingabefeld 'woher auch immer - wird als Text übergeben
Dim Eingabe
Dim x
'Vorgabe
'Durchmesser der Stäbe in Array einfüllen
Durchmesser(1, 1) = 0.6
Durchmesser(1, 2) = 0.8
Durchmesser(1, 3) = 1
Durchmesser(1, 4) = 1.2
Durchmesser(1, 5) = 1.5
Durchmesser(1, 6) = 2
Durchmesser(1, 7) = 2.5
Durchmesser(1, 8) = 3
Durchmesser(1, 9) = 4
Durchmesser(1, 10) = 5
Durchmesser(1, 11) = 6
Durchmesser(1, 12) = 8
Durchmesser(1, 13) = 10
Durchmesser(1, 14) = 12
Durchmesser(1, 15) = 16
Durchmesser(1, 16) = 20
Durchmesser(1, 17) = 25
Durchmesser(1, 18) = 30
Durchmesser(1, 19) = 40
Durchmesser(1, 20) = 50
'Test
Eingabefeld = InputBox("Eingabe ") 'Dezimalkomma / Punkt
'daher
Eingabe = Replace(Eingabefeld, ".", ",")
On Error GoTo Fehler
Eingabe = CDbl(Eingabe)
For x = LBound(Durchmesser, 2) To UBound(Durchmesser, 2)
If Eingabe <= Durchmesser(1, x) Then
Eingabe = Durchmesser(1, x)
Exit For
End If
Next x
MsgBox Eingabe
Fehler:
End Sub
|