ich hänge jetzt schon länger an einer eigentich nicht so komplexer Programmierung fest.
Und zwar möchte ich, dass sobald der Wert in der Zelle D7 größer ist als der festgelegte Wert in Zelle AC18 automatisch eine Email über Outlook versendet wird.
Mein Problem ist nun, dass die Email versendet wird, egal ob der Wert größer oder kleiner ist.
Private Sub Worksheet_Calculation()
If Range("D7").Value > Range("AC18").Value Then Send_Excel_Message600
End If
End Sub
Sub Send_Excel_Message600()Dim MyMessage As Object, MyOutApp As Object
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "Email@adresse.de"
.Importance = 1
.Subject = "RNS"
.body = "XX"
.Save
.Send
End With
End Sub Das habe ich mir mit meinen fast nicht vorhandenen VBA Kentnissen zusammen gereimt. Ich hoffe mir kann da jemand weiterhelfen.
MFG Oliver