Inputbox
08.01.2005 12:52:53
Steffen
Ich möchte mit Hilfe von Inputboxen, Msgboxen einen Wert überprüfen lassen der Über prüfte Wert soll dann in eine bestimmte Zelle geschrieben werden. Hier ist mein fehlgeschlagener Versuch als unterstützung.
Vielleicht hat ja jemand eine Die und kann mir dabei helfen.
Danke schon mal vorab.
Steffen
Sub Vergleich()
IstWert = InputBox("Geben Sie die zuverändernde Raumhöhe für den Raum EG.01 ein!")
MinWert = 2.3
MaxWert = 3.885
If compare = MinWert < IstWert And MaxWert > IstWert Then
MsgBox ("Wert ist OK!")
End If
If compare = MinWert > IstWert Or MaxWert < IstWert Then _
InputBox ("Wert nicht korrekt, bitte neu Eingeben.")
End If
End
Sub