Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Ausgewählte Zeile per Email versenden Makro" abändern

Forumthread: "Ausgewählte Zeile per Email versenden Makro" abändern

"Ausgewählte Zeile per Email versenden Makro" abändern
26.01.2024 14:13:02
Marc S.
Guten Tag,
ich bin im Archiv auf das Makro "Ausgewählte Zeile per Email versenden" gestoßen, welches nach kleinerer Abänderung fast perfekt für mich ist.
Nun die Frage ob man das Makro so erweitern/abändern kann, das durch Rechtsklick auf Spalte O nicht nur die jeweilige Spalte O1/O8/O30 etc abgeschickt wird sondern direkt alle Mails auf einmal.

https://www.herber.de/bbs/user/166443.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "Ausgewählte Zeile per Email versenden Makro" abändern
28.01.2024 08:35:15
Oberschlumpf
Hi Marc,

zumindest ich verstehe deine Aufgabe, bzw Bsp-Datei noch nicht.

In der Bsp-Datei stehen fast nur Nullwerte, nur in Spalte O ist exact 1 Mailadresse eingetragen, und zwar immer wieder die gleiche.
Wenn ich bei den anderen Nullwerten die damit verknüpften Zellen suche, finde ich in Tabelle2 überhaupt gar keine Bsp-Einträge.

Nun ja, ich hab deinen Code mal probiert; rausgekommen ist das hier...
Userbild
(der schwarze Balken ist in der automatisierten Mail natürlich nicht zu sehen; er verdeckt nur meine eigene Mailadresse, die im "Von"-Feld steht)

Aber ansonsten auch hier natürlich fast überall nur 0-Werte.

Kannst du bitte eine Bsp-Datei ohne 0-Werte, dafür aber mit n paar mehr Bsp-Daten zeigen; und eben auch unterschiedliche Mailadressen?

Und...ich verstehe, du möchtest erreichen... :

- egal, in welcher Zeile ein Rechtsklick in Spalte O durchgeführt wird
- dass immer alle Zeilen, in der Bsp-Datei = 97 Mails versendet werden sollen (Zeilen 4 - 100)

oder?
Könnte hier anstelle des Rechtsklicks nicht auch ein CommandButton hilfreich sein?

Ciao
Thorsten
Anzeige
AW: "Ausgewählte Zeile per Email versenden Makro" abändern
29.01.2024 10:13:42
Marc S.
Hi Thorsten,

danke für die schnelle Antwort.
Hier die Dateimit ein paar Daten:
https://www.herber.de/bbs/user/166597.xlsm
In der ersten Datei sind nur Nullen, da ich per copy paste in Tab2 eine .csv datei kopiere und mir einfach per sverweis in tab1 die wichtigen Spalten anzeigen/verschicken lasse.

Ein CommandButton wäre sicherlich die schöner Lösung, da ich aber was VBA angeht völliger Neuling bin, habe ich halt keine Ahnung wie soetwas geht.

Marc

Anzeige
AW: "Ausgewählte Zeile per Email versenden Makro" abändern
29.01.2024 16:56:19
Oberschlumpf
Hi Marc,

hier, versuch mal
https://www.herber.de/bbs/user/166611.xlsm

Folgendes hab ich geändert:
- ich hab deinen Code für Rechtsklick in Spalte O deaktiviert (nicht gelöscht, nur deaktiviert, löschen kannst du dann)
- anstelle des Rechtsklicks hab ich deiner Tabelle einen CommandButton hinzugefügt
- an deinem Code in Modul1 hab ich gar nichts geändert
- ich hab ein weiteres Modul hinzugefügt, dieses "Oberschlumpf" genannt und dort meinen Code eingetragen; so kannst du meinen + deinen Code vergleichen
- anstelle vom .Send-Befehl hab ich erstmal den .Display-Befehl verwendet
so müsstest du jede Mail noch manuell mit Klick versenden
ich hab deswegen .Display eingesetzt, damit du sehen kannst, ob der Mailinhalt deinen Vorgaben/Vorstellungen entspricht
Wenn alles passt, kannst du den .Send-Befehl aktivieren und den .Display-Befehl löschen

Nach Klick auf den neuen Button werden dann so viele Mails erstellt + versendet, wie es in der Tabelle Einträge gibt.
Beachte:
in deiner neuen Bsp-Datei würden 6 Mails versendet werden
in deiner alten Bsp-Datei wären es 97 Mails

So, konnte ich helfen?

Ciao
Thorsten
Anzeige
AW: "Ausgewählte Zeile per Email versenden Makro" abändern
29.01.2024 17:41:39
Marc S.
Hi Thorsten,
vielen vielen Dank!
funktioniert genauso wie ich mir das vorgestellt habe und spart mir enorm viel Zeit.
freut mich - hab gern geholfen! owT
29.01.2024 17:50:19
Oberschlumpf

Forumthreads zu verwandten Themen

selektierte Zeile als Email versenden
Alex

Hallo zusammen,
ich habe hier im Forum einen wunderbaren Code gefunden. Es ist schon fast das, was ich brauche.
Ich weiß nur nicht, wie ich es hinbekomme, dass das Script die Zellen nimmt, die in der selektierten Zeile stehen.
Ich möchte also, wenn ich eine Zelle in der Zeile 85 sel...
20.10.2010 16:45:25
Thread-ID: 1183238
3 Beiträge
Mappe als Email-Anhang versenden!?!
TL

Hallo Wissende,in der Recherche finde ich zwar Stichwörter wie
Mailempfänger,
Mailempfänger (als Anlage)...
Mailer
MailLogoff
MailLogon
MailSession
MailSystem
allerdings sind sinniger Weise keine Informationen hinterlegt :(
Und mein xlWebFinder...
15.05.2002 10:56:08
Thread-ID: 120970
3 Beiträge
Tabellenbereich als Email versenden
Annette

Hallo,
ich benutze folgendes Makro um eine Email zu versenden: Sub Mail_senden() Dim olApp As Object Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) 'Empfänger .Recipients.Add "empfaenger@provider.de" 'Betreff .Subject = "Test-Mail" 'Nachricht .Body = "Das ist eine...
09.08.2011 06:26:39
Thread-ID: 1225317
4 Beiträge
Anzeige
Exceltabelle mit Outlook als Textdatei versenden
Thomas

Hallo liebe VBA-Experten!
Ich möchte aus einer Excelarbeitsmappe eine bestimmte Exceltabelle mit dem Namen "Daten"
mit Outlook versenden.
Den Quellcode zum Versenden habe ich:
Sub MailVersenden() Dim outl As Object Dim Mail As Object Set outl = CreateObject("Outlook.Application"...
02.06.2012 15:44:57
Thread-ID: 1265846
7 Beiträge
Tabelle als e-Mail versenden
Ralph P.

Hallo ich möchte eine aktive Tabelle als e-Mail versenden.
Im Detail heißt das:
Das Standard Mail-Programm soll geöffnet werden, das Subject und der Anhang sollen schon eingetragen sein. Der Empfänger soll aus dem Adressbuch ausgewählt werden können.Andere Frage.
Ich habe folgendes (un...
15.07.2002 12:02:34
Thread-ID: 136610
3 Beiträge
Exceldatei per VBA als Email versenden
Harald

Guten Tag,
ich hoffe mir kann jemand den richtigen Code nennen!
Ich habe folgendes Makro aufgezeichnet:
Sub PerEmailSenden() Application.Dialogs(xlDialogSendMail).Show End Sub Mein Ziel:
Ich möchte, dass die Datei
1) per Email verschickt wird
2) die Empfänger A + B sch...
31.07.2014 17:01:57
Thread-ID: 1373461
5 Beiträge
Makro Email versenden an ExcelKontakte
kiki

Hallo zusammen...
ich habe eine Exceltabelle in der u.a. in unterschiedlichen Spalten, Zeilen, Zellen Emailadressen stehen. ich möchte dass wenn man auf eine Schaltfläche klickt, diese Email Adressen rausgefiltert werden, Duplikate gelöscht, Outlook email senden geöffnet und die Kontakte in...
02.12.2015 10:13:38
Thread-ID: 1461867
7 Beiträge
Anzeige
Range als Email versenden
Marvin

Hallo zusammen,
anbei findet ihr meinen Code#, bei dem folgendes nach Click auf den Commandbutton passiert:
1)Eine neue Mappe wird erstellt und der Inhalt aus dem alten Tabellenblatt wird übernommen.
2)Outlook öffnet sich und hat die neue Mappe im Anhang mit allen dazugehörigen Anga...
04.01.2016 13:52:01
Thread-ID: 1466987
4 Beiträge
Tabellenblatt als Email Anhang
Felix

Moin,
ich brauch mal wieder Eure Hilfe, da ich mir die Zähne an einem Problem ausbeiße.
Ich möchte ein Tabellenblatt an Outlook als Attachment übergeben. Das Attachment soll einen bestimmten haben.
Das kopieren der Datei und die Übergabe an Outlook funktionieren, aber ich den Datein...
15.03.2017 22:25:54
Thread-ID: 1547703
3 Beiträge
VBA Email versenden
Alex

Ein freundlichen Hallo an alle,
ich bin neu in der VBA Welt und bräuchte eure Hilfe. Ich weiß nicht mehr, wo ich den u.g. code herhabe. Läuft auch super, nur mein Problem ist, dass mit diesem Code alle Einträge ab Spalte B genommen werden. Ich habe versucht im Code alles um eine Spalte zu v...
10.01.2019 16:22:51
Thread-ID: 1667259
2 Beiträge
VBA Email versenden
Alex

Ein freundlichen Hallo an alle,
ich bin neu in der VBA Welt und bräuchte eure Hilfe. Ich weiß nicht mehr, wo ich den u.g. code herhabe. Läuft auch super, nur mein Problem ist, dass mit diesem Code alle Einträge ab Spalte B genommen werden. Ich habe versucht im Code alles um eine Spalte zu v...
10.01.2019 16:26:46
Thread-ID: 1667262
4 Beiträge
Anzeige
Tabelle per EMail versenden
Olaf

Ich möchte gern eine Tabelle per Mail versenden. Versandt,Adresse und Betreffzeile sollen per VBA erstellt werden. Der Versandtaufruf klappt aber wie Adresse und Betreff hinzugefügt. Makroaufzeichnung hat hier versagt.activeworkbook.worksheets("tab1").select
application.dialogs(xlDialogSendM...
28.12.2002 23:02:56
Thread-ID: 197031
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige