Nach Werten suchen
05.11.2004 06:06:51
Armin
wie muss ich unten stehenden Code veraendern, um nicht nur einen Zellenwert zu ueberpruefen sondern eine range $A$1:$A$5. Es sollte mir dann per Email der Wert mitgeteilt werden, der unter 100 liegt und am aktuellsten ist. Es koennen mehrere Werte kleiner als 100 sein.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <= 100 Then
EmailNotify "Order", Target.Value
End If
End If
End Sub