Guten Tag,
ich bin ein ziemlicher Leihe was VBA angeht.. und habe ein Problem. Ich habe einen Array vor mir und soll dort die EIngabe überprüfen.
Als Beispiel, der Array enthält die Zahlen 3 und 4 und jemand tippt 3,5 ins EIngabefeld ein. Jetzt soll das Programm automatisch erkennen das hier bei die nächst größere Zahl genommen werden soll. In diesem Fall die 4. Natürlich mit allen Zahlen.
Dim Durchmesser(1 To 3, 1 To 37) As Double 'Array für Stiftdurchmesser erstellen
'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
Falls ihr weitere Fehler sieht, sag mir bitte auch einfach bescheid. Ich bedanke mich :D
|