Bereich definieren

[Florianrau]

Hallo zusammen ich möchte gerne einen Bereic definieren der zwischen15 un 99999
liegt nur weis ich nicht wie der cod aussehen muss das habe ich momentan so stehen


Private Sub berechnen_Click(Index As Integer)
If Text1(0) = "15" Then
MsgBox "Das Silo ist bei diesem Wert leer"
End If



Ich hoffe Ihr könnt mir helfen MFG Florian

 

[wincnc]

Hallo, hab mal ein bischen rumgebastelt. Man könnte den Silostand prozentual ausdrücken.

Private Sub Command1_Click()
Dim Hoch As Long
Dim Nieder As Long
Dim Proz As Double
Dim Diff As Long

If Not CLng(Text1) < 15 Then
 Hoch = 99999
 Nieder = 15
 Diff = Hoch - Nieder
 Proz = Format((CLng(Text1) - Nieder) / (Diff / 100), "##0.000")
Else
 Proz = 0
End If

MsgBox "Das Silo ist zu " & Proz & " % gefüllt !", vbInformation, "Auswertung"

End Sub