Office: Makro Zellüberwachung wenn Wert dann Mail mit Wert einer anderen Zelle

Hallo liebes Forum,

ich bin leider so gar nicht vertraut mit den Makros in Excel bzw. dem VBA.

Ich möchte folgendes mit Excel&Outlook erreichen:

Makro überwacht Wert in Zelle r11. Wenn Wert in r11 = $r$5 dann sende mail mit "Text" + Zellwert aus c11.

Das Makro soll die Zellen einer Spalte der Reihe nach überwachen. Wenn für r11 die mail ausgelöst wurde soll er r12 überwachen und Wert aus c12 in die mail schreiben usw.

Ich habe bisher dieses Makro versucht anzupassen (siehe unten). Das hat aber leider nicht zum gewünschten Erfolg geführt.

Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
On Error GoTo fehler
Const Minimumwert As Double = 20.3
Const ÜberwachteZelle As String = "zelle"

If Target.Address = ÜberwachteZelle Then
If CDbl(Target.Value) < Minimumwert Then
Call ZellÜberwachung
End If
End If
fehler:
If Err = 13 Then
MsgBox "Bitte geben Sie nur nummerische Werte ein!", _
vbExclamation + vbOKOnly, "Eingabefehler ..."
End If
End Sub

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 = "mailadresse"
.Subject = "text"
.Body = "Sehr geehrte Damen und Herren," & vbNewLine & vbNewLine & _
"leider muss ich Ihnen heute mitteilen, dass ... "
.Send
' soll die eMail sofort ohne Ansicht versendet werden,
' dann statt .Dislay
' .Send
' eingeben
End With

Set oOL = Nothing
Set oOLMI = Nothing
End Sub


Besten Dank im Voraus für etwaige Hilfe

Bastian/Jerry

System Windows 10, Excel 365, Outlook 365

:)

 

Hallo Jerry,

Mit dieser allgemeinen Feststellung kann man praktisch nichts anfangen.

Ich habe mal die erste Sub angeschaut, strukturiert und ein wenig geändert. Wenn Du mehr als 1 Tabellenblatt hast, dann sollte über sh auch der Name des Tabellenblattes abgefragt werden.

Gruß
Aloys

Der Code für DieseArbeitsmappe im VBE
Code:

 

Hallo Aloys,
sorry ich versuche mein Problem es genauer zu erklären:

1. aktuelle Variante meines VBA codes siehe unten
2. Zeile 6 "If Target.Adress (R11;R199) = Überwachtezelle Then" wird mir rot markiert, scheint also nicht zu funktionieren - da muss wohl noch die "Range" rein?
3. es soll der Bereich von r11 bis r199 überwacht werden. Hinterlegt ist in allen Feldern eine Wenn, Dann Funktion. Diese überwacht in allen Zellen von K11;K199 ob der Wert in D3 höher ist als in K11. Wenn ja, dann schreibt sie den Wert ("verkaufen") in r11. Wenn in r11 der Wert steht, soll das Makro eine mail versenden. Aber nur einmalig. Wenn die mail für r11 ausgelöst wurde, soll r11 danach ignoriert werden.
4. in der mail enthalten soll neben etwas text auch ein Zellwert übernommen werden und zwar der aus k11 usw.

Hintergrund: ich versuche mir einen Ticker in Excel zu bauen, der Kurse (z.B. von Devisen o.Ä.) minütlich abfragt und mir eine mail sendet, wenn ein bestimmter vorher definierter Schwellwert (in dem Fall mein Kursziel) erreicht oder übertroffen ist. Dann verkaufe ich (manuell) und der "trade" ist abgeschlossen. Daher soll die mail auch pro trade nur einmal verschickt werden. Ich hoffe ich konnte die benötigten Infos liefern.
Code: