automatische E-Mail wenn Zellenwert >0

Hallo ihr helfenden Menschen,
ich muss ein Makro schreiben, habe aber leider keine Ahnung wie ich das anstelle.
Beim Ausführen des Makros sollen automatisch E-Mail-Vorlagen geöffnet werden (noch nicht gleich verschickt, aber quasi fertig zum verschicken).
In dem Beispiel unten sollen alle Personen die in Spalte K eine Zahl größer als Null eine E-Mail an die in Spalte Q hinterlegte Adresse bekommen. Das müsste wohl mit einer WENN Funktion gemacht werden? Die richtige Datei hat ca. 400 Zeilen, die alle auf einen Wert größer als Null in Spalte K überprüft werden müssen.
Beispiel für E-Mail:
Spalte A: MustermannMax
Spalte K: 2
Spalte Q: Max.Mustermann@firma.de
Beispiel für keine E-Mail:
Spalte A: MustermannTina
Spalte K: 0
Spalte Q: Tina.Mustermann@firma.de
Der Betreff der Mail soll offene Punkte lauten und der Text soll zum Beispiel sein:
Guten Tag,
Sie haben offene Punkte. Bla bla.
Mit freundlichen Grüßen
Abteilung XY
Oder, falls möglich auch gerne Sie haben ANZAHL SPALTE K offene Punkte
Wie mache ich sowas? Genutzt wird Excel2010 und Outlook.
Kann man auch einen Knopf in die Excelmappe packen Erinnerungs E-Mails, auf den man klickt, um das Makro auszuführen?
Vielen Dank für eure Hilfe! ich verzweifle hier :/

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich habe mich jetzt mal versucht mir im Internet zu helfen und habe ich mir das jetzt zusammengesucht und mit meinen Sachen ergänzt. Funktioniert aber leider nicht :(
-Was muss ich ändern? Als Fehlermeldung wird "Fehler beim Kompilieren: Unzulässige Verwendung des Schlüsselworts Me" angezeigt.
-Was bedeutet if.offset(0,3)? Das habe ich einfach übernommen...
Danke für eure Hilfe! :)
Option Explicit

Sub Worksheet_Calculate()
Dim FormulaRange As Range
Dim FormulaCell As Range
Dim NotSentMsg As String
Dim MyMsg As String
Dim SentMsg As String
Dim MyLimit As Double
NotSentMsg = "Not Sent"
SentMsg = "Sent"
MyLimit = 0
Set FormulaRange = Me.Range("K2:K400")
On Error GoTo EndMacro:
For Each FormulaCell In FormulaRange.Cells
With FormulaCell
If .Value

Sub Mail_with_outlook1(FormulaCell As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim str

Sub As String, strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strto = Cells(FormulaCell.Row, "Q").Value
strcc = ""
strbcc = ""
str

Sub = "offene Punkte"
strbody = "Guten Tag, " & vbNewLine & vbNewLine & "Sie haben " & Cells(FormulaCell.Row, "B"). _
Value & " offene Punkte. Bitte arbeiten Sie diese ab" & _
vbNewLine & vbNewLine & "Mit freundlichen Grüßen," & _
vbNewLine & vbNewLine & "Abteilung XY"
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

automatische E-Mail wenn Zellenwert >0

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatische E-Mail wenn Zellenwert >0

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread