Flags bei Felder-überprüfung
04.02.2005 17:41:21
Segnor
habe folgendes Makro welches die Zellen C1-C5 nach der Farbe Gelb überprüft und wenn "JA" eine Mail mit dem Inhalt generiert.
Würde es jetzt gern so haben, dass wenn z.B. für Zelle C2 schon einmal eine Mail rausgeschickt wurde 24h keine erneute Mail generiert wird, aber für die anderen Zellen schon wenn Sie gelb sind.
Wie kann ich das den mit Flags realisieren?
Vielen Dank für eure Hilfe
Sub WerteCheck()
Dim c As Range
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("C1:C5" & laR)
If c.Interior.Color = vbYellow Then
strName = c.Value
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Mail.Subject = "Wert anpassen!"
Mail.Body = "Den Wert " & strName & " bitte anpassen!" & vbLf & _
"Diese Mail wurde automatisch erzeugt."
Mail.to = "blabla@bla.com"
Mail.send
flagwerte = True
Set Mail = Nothing
Set outObj = Nothing
Exit For
End If
Next c
End Sub