Zielwert befindet sich zw. 2 Prozentwerten
31.07.2003 22:30:53
Mike E.
komme gerade nicht weiter...
Beispiel:
Im Range("A1:A20") stehen "hart" hineingeschriebene Prozentwerte.
Mit folgendem Code möchte ich die Adresse der Zellen per MsgBox ausgeben lassen, deren Wert sich z.B. zwichen 90% und 110% befindet; dieser bewirkt aber, dass ALLE sich in dem Range befindlichen Zellen angezeigt werden:
Sub Test()
Dim Rng As Range
Dim Zelle
Set Rng = Range(Cells(1,1), Cells(20,1))
For Each Zelle in Rng
If Zelle > 0.9 < 1.1 Then MsgBox(Zelle.Address)
Next Zelle
End Sub
Vielleich kann mir jemand auf die Sprünge helfen?
Würde mich freuen.
Viele Grüße
Mike