Office: (Office 2019) email automatisch verschiken Von einer WENN Unktion

Hallo

ich kenne mich was VBA angeht nicht aus!

Ich habe das Logo Access toll das von einer Logo Steuerung Werte Abgreift!

In der Spalte V Wenn Funktionen die mir Bei bestimten werten dan Störung oder ok anzeigen.
Und ich möchte Das wann eine Wenn Funktion Störung anzeigt ich eine E-Mail Bekomme!

Ist das möglich?

Habe bis jetzt nur Cods Gefunden wo das nur über Manuele Eingabe Geht nicht von einer automatischen Funktion

Danke
Gerald

 

Hallo Gerald,

benutze das Ereignis
Private Sub Worksheet_Change(ByVal Target As Range)

was sehr aufwendig ist.

 

ok wo im code müste ich das ändern?

Option Explicit

'-----< Setup >------
Private Const °Input_Check As String = "1"


Private Const °Email_Address_To As String = "Vornahme.Nachnahme@gmx.at"
Private Const °Email_Title As String = "Test Automatische Email bei Excel-Eingabe"
Private Const °Email_Text As String = "This is Email-Text"
'-----</ Setup >------


'==================< Events >==================
Private Sub Worksheet_Change(ByVal Target As Range)
'--------< Worksheet_Change(ImputCell) >--------
'*After_Cell_Input_Change
If Not Intersect(Target, Range("U2")) Is Nothing Then
If Target.Value Like °Input_Check Then
Dim sText As String
sText = °Email_Text
sText = sText & vbCrLf & "Eingabewert =" & Target.Value & " in Zeile: " & Target.Address
Send_Email (sText)
End If
End If
'--------</ Worksheet_Change(ImputCell) >--------
End Sub
'==================</ Events >==================



'==================< Functions >==================
Private Sub Send_Email(ByVal sText As String)
'-------------< Send_Email() >-------------
'----< Send with Outlook >----
Dim app_Outlook As Outlook.Application
Set app_Outlook = New Outlook.Application

'--< Email einstellen >--
Dim objEmail As Outlook.MailItem

'--< Send Email >--
Set objEmail = app_Outlook.CreateItem(olMailItem)
objEmail.To = °Email_Address_To
objEmail.Subject = °Email_Title
objEmail.Body = sText
objEmail.Display False
'objEmail.Send '*optional
'--</ Send Email >--


'< Abschluss >
Set objEmail = Nothing
Set app_Outlook = Nothing
'</ Abschluss >

'----</ Send with Outlook >----
'-------------</ Send_Email() >-------------
End Sub

'==================</ Functions >==================

 

gut ich kann Dir nicht helfen, was wohl daran liegt das ich nicht auf fremde Rechner schaue um Deine Datei zu sehen.
Wie schon Geschrieben ist es aufwendig.

Gruß Hajo