Eingabe per Inputbox mit oder ohne Komma
19.01.2005 11:09:32
Harald
mit folgendem Code (nochmal danke ans Forum) lasse ich von Produktionsmitarbeitern 5 Werte in eine Liste eintragen. Die einzutragenden Werte liegen je nach Bauteil zwischen 22,00 und 30,00 und sind in den Feldern A44 und B54 hinterlegt.
Private Sub CommandButton2_Click()
Dim sW(5) As Single
Dim rz As Integer
rz = Cells(14, 27).End(xlToLeft).Column + 1
Cells(14, rz).Select
Datum = ActiveCell.Offset(-1, -1).Value
If Datum = Date Then
MsgBox "Zu diesem Datum gibt es bereits einen Eintrag !"
Exit Sub
End If
On Error GoTo Schutz:
ActiveSheet.Unprotect "passwort"
Call Numlock_ein
For i = 1 To 5
While sW(i) < Range("b54") Or sW(i) > Range("a44") 'Schleife wiederholt sich, bis Eingabe innerhalb Grenzen
sW(i) = CSng(InputBox(i & ". Wert eingeben" & vbCrLf & vbCrLf & _
"Werte kleiner " & Range("b54") & " und größer " & Range("a44") & _
" werden abgewiesen !", "Eingabe"))
Wend
ActiveCell.Offset(i - 1, 0) = sW(i)
Next
Schutz:
MsgBox "Schützen ?"
ActiveSheet.Protect "passwort"
End Sub
Die Leutchen schaffen es immer wieder die Datei zu zerschiessen.
Zum Beispiel wenn das Komma vergessen wird.
Statt 22,54 geben sie 2254 ein, wundern sich und brechen alles ab.
Wie könnte ich diesen Komma-Fehler abfangen ?
Hoffe ihr habt eine Idee, zumal etwa 8 Leute damit arbeiten und bezüglich falscher Eingaben sehr kreativ sein können ;-/
Gruß
Harald
Anzeige