Makro an Datum knuepfen
08.11.2004 02:10:41
Armin
ueber ein Makro lasse ich eine Emailbenachrichtigung senden, falls ein bestimmter Wert unterschritten wird. Diese Email soll aber nur dann versendet werden, wenn das eingetragene Datum mit dem aktuellen Datum uebereinstimmt. Wie laesst sich das als Code darstellen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim d As Range
For Each d In Range("E3:E4")
If d = "Today()" Then
For Each c In Range("A1:A5", "B1:B5")
If c > 1 Then
If c <= 100 Then
EmailNotify "Order", Target.Value
End If
End If
Next c
End If
Next d
End Sub
Besten Dank fuers Drueberschauen.
Anzeige