Vergleich mit If-Then - Diesmal ohne Dateianhang
27.12.2004 17:42:26
Jan
ich habe folgendes Problem:
Ich will mit Hilfe eines Makros einen eingegebenen Wert(Variable(gelb hinterlegt)) mit zwei weiteren Werten (Konstanten(min.Fensterhöhe,max.Fensterhöhe))vergleichen. VBA soll dann eine MsgBox öffenen und angeben, ob der eingegebene Wert den Vorgaben entspricht(Wert OK) oder ob der Wert den Vorgaben nicht entspricht(Wert überprüfen!).
Ich erhalte immer die Meldung "Wert überprüfen!", auch wenn die Vorgaben eingehalten werden.
Danke für die Hilfe sagt Jan
Sub IfThen()
IstWert = Range("Variable").Value
MinWert = Range("min.Fensterhöhe").Value
MaxWert = Range("max.Fensterhöhe").Value
If compare = MinWert < IstWert And MaxWert > IstWert Then
MsgBox "Wert OK"
End If
If compare = MinWert > IstWert Or MaxWert < IstWert Then
MsgBox "Wert überprüfen!"
End If
End Sub