Office: E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist

Paqir · 21. Oktober 2020

Hallo zusammen

Ich bin ein Anfänger in Sachen VBA. Deswegen wollte ich Eure Meinung zu meinem Fall hören:

Thema => Materialbestand

Excel soll mir einen Brief im Outlook öffnen, wenn die Anzahl von Früchten unter 20 Stück ist.

Die Exceltabelle sieht folgendermassen aus:
A B
1. Bananen 25
2. Apfel 19

Soweit habe ichs versucht, durchs Googeln was Schlaues zu finden.
Hier ist das Ergebnis:

Private Sub Wertkontrolle()
On Error Resume Next
If Range("B1") < 20 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = ArtName
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf jeden Fall, wenn der Zellenwert in der Tabelle sich ändert, kommt kein Outlook Fenster.

Danke für Eure Hilfe im Voraus

:)

Mase · 23. Oktober 2020

Ich hab das schonmal gelesen...
Hast Du diese Anfrage auch in anderen Foren gestellt?

Paqir · 23. Oktober 2020

Hallo

Nein, ich stelle dieses Problem zum ersten Mal hier und nirgendwo sonst.

Mase · 23. Oktober 2020

Wird der Bestand eingetippt oder durch eine Formel errechnet?

Für beide Fälle gibt es ein Ereignis.

Worksheet_Change()
Worksheet_Calculate()

Empfehlenswert sich da einzulesen.

Paqir · 12. Januar 2021

von Mase

Wird der Bestand eingetippt oder durch eine Formel errechnet?

Für beide Fälle gibt es ein Ereignis.

Worksheet_Change()
Worksheet_Calculate()

Empfehlenswert sich da einzulesen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Mase

1. Der Bestand wird durch eine Formel errechnet (=Summe).
2. Könntest du nicht bitte den Code zum Worksheet_Change() geben.

Danke vielmals
Paqir

P.S. bin noch ein Anfänger in diesem Gebiet

Flotter Feger · 23. Oktober 2020

Hallo,

wenn der Wert über eine Formel errechnet wird, dann wird nur das

Worksheet_Calculate()-Event angestoßen.

Da herauszukriegen, welche Zelle sich gerade geändert hat, ist eine recht komplizierte Sache, wenn es viele Formeln in der Tabelle gibt. Ein Target-Object gibt es da leider nicht.
Es wird notwendig sein, dass du eine Muster-Datei hochlädtst.

Sabina

Mase · 23. Oktober 2020

2. Könntest du nicht bitte den Code zum Worksheet_Change() geben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du meinst Calculate?

Folgendes in den Codebereich 'DieseArbeitsmappe':
Code:

Option Explicit

Private Sub Workbook_Open()

With typMon
Set .Ware = Worksheets(1).Range("A1")
Set .Bestand = .Ware.Offset(, 1)
.Mindestbestand = 20
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Folgendes in den Codebereich des Arbeitsblattes:
Code:

Option Explicit

Private Sub Worksheet_Calculate()
Call checkIfMail2Send
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Folgendes in ein allgemeines Modul:
Code:

Option Explicit

Public Type Bestandsmonitor
Ware As Excel.Range
Bestand As Excel.Range
Mindestbestand As Long
End Type

Public typMon As Bestandsmonitor

Sub checkIfMail2Send()
With typMon
If .Bestand.Value < .Mindestbestand Then
Call SendEmail(typMon)
End If
End With
End Sub

Sub SendEmail(ByRef Anforderung As Bestandsmonitor)
'*** Mail erzeugen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beispielhaft für Worksheet(1) -> das linke äußere Arbeitsblatt.
Bezeichnung der Ware steht in A1.
Summenformel in A2.
Mindestbestand 20.
Emailprozedur wird aufgerufen bei Bestand < Mindestbestand.

MisterBurns · 23. Oktober 2020

Auch mal etwas Senf von mir. So eine Prozedur wird dann halt jedesmal durchlaufen, wenn sich am Bestand etwas ändert und der Mindestbestand unterschritten ist. Im schlimmsten Fall also 19 mal eine Email.
Viel sinnvoller ist in meinen Augen, unterschrittene Mindestbestände mittels bedingter Formatierung anzeigen zu lassen. Für die jeweilige Zeile kann man dann immer noch händisch den Emailcode anstoßen. Gleichzeitig wird für dieselbe Zeile in einer separaten Zelle ein Marker gesetzt, damit man weiß, dass die Email schon verschickt wurde.

Mase · 23. Oktober 2020

... oder mehr als 19mal wenn weitere Waren überwacht werden.
So könnte man sich merken, wenn Mail bereits versandt und das spamen vermeiden ...sicherlich noch nicht zuende ausgedacht...oder nur die Hälfte erzählt *wink.gif*

Office: E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist

E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist

E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist

E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist

E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist

E-Mail senden, wenn der Wert bestimmter Zelle unterschritten ist - Similar Threads - Mail senden Wert

Serien-E-Mail in Word über anderes Outlook-Konto senden

Keine Auswahl von E-Mail-Adressen beim versenden

Senden einer Besprechungsanfrage oder einer e-Mail-Nachricht aus einem Gruppenzeitplan

Verwalten von Personen, die e-Mails an einen Kanal in Microsoft Teams senden können

Senden einer E-Mail-Nachricht an mehrere Business Contact Manager-Empfänger

Verwenden des Seriendrucks zum Senden von Massen-E-Mails

Mail zeitversetzt senden