Min und Max Eingabemoeglichkeit
31.08.2005 08:35:49
gnilk
hat jemand eine Idee wie ich den Wert einer bestimmten Tabelle, als InTMin und als IntMax definieren kann. Damit kann ich naemlich sicherstellen, dass mein Tool immer idiotensicherer wird. Ich koennte es ja mal selbst benutzen wollen.
Wenn ich die Konstante habe, kann ich naemlich nur diesen Wert als zuverlaessigen Rahmen nehmen. Falls die Eingabe der InputBox naemlich groesser oder kleiner ist, soll eine MsgBox angezeigt werden.
So habe ich mir das vorgestellt, funzt aber nicht:
Const IntMin = Windows("Daten.XLS").Sheets("Daten"). _
Selection.End(xlUp).Selection.End(xlToLeft).Selection.End(xlToLeft). _
Offset(rowOffset:=-1, columnOffset:=3).Value
Const IntMax = Windows("Daten.XLS").Sheets("Daten"). _
Selection.End(xlUp).Selection.End(xlToLeft).Selection.End(xlToLeft). _
Offset(rowOffset:=-1, columnOffset:=3).Selection.End(xlDown).Value
filStr = InputBox("Please insert the order number of this month", "Order Number")
If ((filStr >= IntMin) And (uNum MsgBox "Your Input was not Numeric", vbInformation, "Help"
Else.... 'ab da geht dann mein makro weiter
Ciao gnilk
PS: Formfehler lassen wir mal aussen vor