Excel VBA – Senden Sie eine E-Mail basierend auf einer indirekten Änderung in der Zelle, mit Anhang und Zellreferenz im E-Mail-Text

Hallo,

Ich versuche, eine E-Mail zu senden, die auf einer indirekten Änderung des Zellwerts (z. B. > 7) basiert, mit dem E-Mail-Anhang und einem spezifischen Zellverweis auf die geänderten Zellen in meinem Outing-Mail-Text. Ich habe die indirekte Zellwertänderung basierend auf den Kriterien verringert. Ich erhalte jedoch die Fehlermeldung 424, wenn ich versuche, eine Variable zum Aufrufen der Zellenadresse in meiner E-Mail festzulegen. Könnten Sie helfen? Ich fühle, dass ich nah bin.

Dim xRg als Bereich
Dim xRgSel als Bereich
„Entfernung und Ziel festlegen.“
Private Sub Worksheet_Change (ByVal-Ziel als Bereich)
xRgPre als Bereich dimmen
On Error Resume Next
Wenn Target.Cells.Count > 1, dann Exit Sub
Setze xRg = Range("Q2:Q43")
Legen Sie xRgPre = xRg.Precedents fest
Setze xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Speichern
Wenn xRg.Wert > 7 Dann
Rufen Sie Mail_small_Text_Outlook auf
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Then
End If
End If
End Sub
Unter Mail_small_Text_Outlook()
Dim xOutApp als Objekt
Dim xOutMail als Objekt
Dim xMailBody als String
Set xOutApp = CreateObject("Outlook.Application")
Setze xOutMail = xOutApp.CreateItem(0)
xMailBody = „Hallo, Zellen“ & xRgSel.Address(False, False) & _
" im Arbeitsblatt '" & Me.Name & "' sind 3 Tage nach der Einnahme" & vbNewLine & vbNewLine & _
„Bitte überprüfen Sie den/die Lead(s) und nehmen Sie Kontakt mit ihm auf“ & vbNewLine & _
"Vielen Dank"
On Error Resume Next
Mit xOutMail
.An = ""
.CC = ""
.BCC = ""
.Subject = „Tage seit der Bleiaufnahme“
.Body = xMailBody
.Anlagen.Hinzufügen (DieseArbeitsmappe.VollständigerName)
.Anzeigen 'oder .Senden
Ende mit
Bei Fehler GoTo 0
Setze xOutMail = nichts
Setze xOutApp = nichts
End Sub


Vielen Dank!