ich konnte schon vieles aus diesem Forum entnehmen, nun habe ich noch eine Erweiterung zu der bestehenden Aufgabe (Tonerbestand) zu lösen.
https://www.herber.de/bbs/user/91247.xlsm
Die zweite Datei (Bedarfsmeldung) soll mit Werten aus der ersten Datei (Blatt:Liferanten, Tonerbestand) gefüllt werden.
Bis jetzt macht der Code folgendes:
Aus dem Blatt: Tonerausgabe werden die Tonerausgaben in dem Blatt: Tonerbestand verrechnet und wenn ein bestimmter Mindestbestand erreicht ist, wird eine Benachrichtigung per Email geschickt.
Das sollte der Code zusätzlich können:
Alle Toner aus dem Blatt: Tonerbestand, die denn Mindestbestand unterschritten haben sollen die zweite Datei (Bedarfsmeldung) mit den Daten aus dem Blatt: Lieferanten füllen. Anschließend soll die zweite Datei als Anhang per Email verschickt werden.
Konkrete Daten, die in die zweite Datei geschrieben werden sollen:
Hersteller, Bezeichnung, Artikelnr. (Spalte: MSKNET) und der Preis.
Habe eine Vermutung, dass es wahrscheinlich an dieser Stelle eingefügt werden soll, habe keine Ahnung wie:
...
also genau hier:
MsgBox "Minimum vom Toner" & vbLf & wksZ.Cells(a, 2), vbCritical, "Achtung Minimum erreicht!!"
StartMail wksZ.Cells(a, 2)
End If
...
Würde mich freuen, wenn ihr mehr da helfen könntet!