wisst ihr vielleicht ob es bei der InputBox die Moeglichkeit gibt, den Prozess abzubrechen ohne das die Zielzelle bereinigt wird, sondern so gelassen wird wie sie vor dem Procedure-Start gefuellt war?
ich hoffe das ist einigermassen verstaendlich.
habe naemlich eine ziemlich lange prozedure:
Private Sub CommandButton1_Click()
MsgBox ("Please enter all requested data. If you don't know what is the right figure should be or if you are not sure leave the default figure as is, so the tool is not disabled.")
[d4] = InputBox("Number of hours per day of operation?", "Please enter all requested data...", 24, 5000, 5000)
[d5] = InputBox("Number of days per year?", "Please enter all requested data...", 365, 5000, 5000)
[d6] = InputBox("Flow Rate through hardware in m3/hr?", "Please enter all requested data...", 150, 5000, 5000)
[d11] = InputBox("Number of Filters in vessel?", "Please enter all requested data...", 200, 5000, 5000)
[d19] = InputBox("Number of hours for change out?", "Please enter all requested data...", 4, 5000, 5000)
[d20] = InputBox("Number of operators?", "Please enter all requested data...", 1, 5000, 5000)
[d21] = InputBox("Cost of change out per operator / hour (in £)?", "Please enter all requested data...", 35, 5000, 5000)
[d23] = InputBox("Are you charged for disposal by volume in m³ or by weight in kg? Put in a V for volume or a W for Weight, please.", "Please enter all requested data...", "V", 5000, 5000)
[d24] = InputBox("Filter diameter (inches)?", "Please enter all requested data...", 2.5, 5000, 5000)
[d25] = InputBox("Filter length (inches)?", "Please enter all requested data...", 40, 5000, 5000)
[d30] = InputBox("Cost of disposal / (m³) in £?", "Please enter all requested data...", 3000, 5000, 5000)
[d31] = InputBox("Cost Of Disposal / Kg in £?", "Please enter all requested data...", 12, 5000, 5000)
MsgBox (" Thank you!")
End Sub
Ich meine wenn man nur einen wert aendern moechte, kann man sich zu diesem durchklicken und dann die Procedure beenden?
In dem oben aufgefuehrten Fall ist dies leider nicht moeglich, oder meint ihr das eine UserForm fuer dieses Beispiel besser waere?
Vielen Dank im Voraus.
Reno