Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestellung

Bestellung
10.06.2019 09:31:27
Florian
Hallo zusammen,
mit der Hilfe von euch konnte ich mir eine VBA Funktion erstellen, mit welcher ich eine Tabelle sortiere und dann dem jeweiligen Lieferanten per Email zusende.
Soweit klappt das auch super. Ich hab nur zwei Schönheitsfehler welche ich beheben möchte.
1. Wie kann ich die Formatierung bzw. die Größe der einzufügenden Symbole bestimmen?
Ich würde gerne die Schriftart aus der Datei übernehmen.
2. Wenn ich einen Lieferanten nicht angelegt habe, kommt eine Fehlermeldung und das Makro stopt bzw. wird abgebrochen. Kann man hier evtl. was einbauen ,das Lieferanten, welche nicht aufgeführt sind, nicht berücksichtigt werden. Diese sollen dann keine Mail bekommen. Es sollte aber ein Infofeld aufgehen das dem User mitteilt, das Lieferant XYZ keine nachricht bekommt.
Wäre cool wenn Ihr mir hier unter die Arme griefen könntet.
Grüße Flo
https://www.herber.de/bbs/user/130314.xlsm

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestellung
10.06.2019 11:45:23
Matthias
Moin!
Bei 1 weiß ich nicht, welche Symbole du meinst (im Blatt oder Outlook). Bei 2 könnte dsa hier helfen.
For Each k In objDic.keys
Tabelle1.Range("A:H").AutoFilter Field:=4, Criteria1:=k
If Not objDicEmail.Exists(k) Then
MsgBox "Der Empfänger " & k & " bekommt keine Nachricht"
Else
Send_Email objDicEmail(k)
End If
Next k
Das am Ender der Sub Erinnerungsfunktion austauschen.
VG
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige