Makro Mail aus Excel
13.08.2014 09:26:51
Christopher
ich habe eine Excel-Mappe, in der ich einen Ticker eingebaut habe.
Wenn ein bestimmter Wert unterschritten ist, würde ich gerne eine Mail bekommen, wenn in einer Zelle ein bestimmter Wert unterschritten ist. Ich habe was dafür erstellt, klappt auch wunderbar. Jetzt habe ich aber mehrere Zellen, die überwacht werden müssen (G3:G41) und da bin ich raus. Das bekomme ich irgendwie nicht gebacken.
Kann mir da jemand bitte weiterhelfen?
Hier der bisherige Code:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
On Error GoTo fehler
Const Minimumwert As Double = 20
Const ÜberwachteZelle As String = "$G$3"
If Target.Address = ÜberwachteZelle Then
If CDbl(Target.Value)
Sub ZellÜberwachung()Dim oOL As Outlook.Application
Dim oOLMI As Outlook.MailItem
Set oOL = New Outlook.Application
Set oOLMI = oOL.CreateItem(olMailItem)
'Application.DisplayAlerts = True
With oOLMI
.To = "christopher.roth@do.panopa.com"
.Subject = "Nachschulung Luftsicherheit"
.Body = "Hallo Christopher," & vbNewLine & vbNewLine & _
"bitte um Nachschulung Luftsicherheit kümmern"
.Send
End With
Set oOL = Nothing
Set oOLMI = Nothing
End Sub