Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range selected - Email versenden

Forumthread: Range selected - Email versenden

Range selected - Email versenden
02.09.2016 09:53:44
Donald

Hallo zusammen,
Bisher habe ich folgendes:
Ich selektiere eine Zeile (bisher eine Zeile, keine Range!) (z.B. A1:Q1) und kann sie dann automatisch an den Empfänger in G7 senden. Ich benötige nun jedoch die Schleife, mit der ich alle E-Mails je nach Zeile und je nach Empfänger von A1:Q1 bis A50:Q50 an G1 bis G50 sende - quasi eine Schleife, die mir jede Zeile innerhalb der markierten Range einzeln hochzählt und immer die passende Zeile an den entsprechenden Empfänger in Spalte G sendet.
Hänge da leider gerade!
Ich hoffe ich konnte es gut genug erklären,
MfG,
Donald

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range selected - Email versenden
02.09.2016 09:57:28
RPP63
Moin!
Geht es auch etwas genauer?
Zeig mal Deinen bisherigen Code.
Gruß Ralf
AW: Range selected - Email versenden
02.09.2016 10:01:01
Donald
Hallo, klaro! :-)
Sub SendSelection()
Dim Zeilenvariable As Integer
With Selection
For Zeilenvariable = 1 To 70
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Database"
.Introduction = "" & vbCrLf & "TestBody"
.Item.To = Selection.Cells(Zeilenvariable, 7)
.Item.Send
End With
Next
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

Damit sende ich mir aber, wenn ich eine Zeile selektiert habe, diese eine Zeile 70 mal und wenn ich eine Range selektiert habe diese Range 70 mal.
MfG,
Donald
Anzeige
AW: Range selected - Email versenden
05.09.2016 07:27:24
Donald
Wäre noch offen.. :-)
AW: Range selected - Email versenden
06.09.2016 08:21:50
ChrisL
Hi Donald
Vielleicht so...

Sub SchickMal()
Dim iZeile As Long
If Selection.Rows.Count = 1 Then
Call SendSelection(Selection.Row)
Else
For iZeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Call SendSelection(iZeile)
Next iZeile
End If
End Sub

Private Sub SendSelection(Zeilenvariable As Long)
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Database"
.Introduction = "" & vbCrLf & "TestBody"
.Item.To = Selection.Cells(Zeilenvariable, 7)
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

cu
Chris
Anzeige
AW: Range selected - Email versenden
06.09.2016 08:41:35
Donald
Fast perfekt - Empfänger wechseln pro Zeile klappt super und die Mails kommen zu den richtigen Adressen - jetzt dürfte nur auch immer nur die eine Zeile gesendet werden. Aktuell wird der komplette markierte Bereich an den Empfänger in z.B. G7 gesendet. Dieser soll aber nur z.B. A7 - I7 bekommen.
Wäre das noch möglich?
Liebe Grüße & danke schonmal für die Hilfe,
Donald
Anzeige
AW: Range selected - Email versenden
06.09.2016 08:52:26
ChrisL
Hi Donald
Dann vielleicht so (quick & dirty mit Select)...
Sub SchickMal()
Dim iZeile As Long, rng As Range
Set rng = Selection
If Selection.Rows.Count = 1 Then
Call SendSelection(Selection.Row)
Else
For iZeile = rng.Row To rng.Row + rng.Rows.Count - 1
Rows(iZeile).Select
Call SendSelection(iZeile)
Next iZeile
End If
End Sub


Private Sub SendSelection(Zeilenvariable As Long)
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Database"
.Introduction = "" & vbCrLf & "TestBody"
.Item.To = Selection.Cells(Zeilenvariable, 7)
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

cu
Chris
Anzeige
AW: Range selected - Email versenden
06.09.2016 10:29:40
Donald
Servus,
Jetzt klappt das wechseln zwischen den Zeilen aber das wechseln zwischen den Empfängern nicht mehr :-(
Irgendwie hängt er sich bei einem Empfänger fest und ich stehe total auf dem Schlauch wo...
Ich markiere z.B. A5:I10 - dann sollte er sechs E-Mails versenden: A5 bis I5 an Empfänger in G5, A6:I6 an G6, A7:I7 an G7, A8:I8 an G8, A9:I9 an G9 und A10:I10 an G10.
LG
Donald
Anzeige
AW: Range selected - Email versenden
06.09.2016 12:52:20
ChrisL
Hi
Ja da war noch ein Fehler drin.
Ändere mal:
.Item.To = Cells(Zeilenvariable, 7)
(ohne Selection)
cu
Chris
AW: Range selected - Email versenden
06.09.2016 13:43:49
Donald
Danke! Funktioniert perfekt. owT

;

Forumthreads zu verwandten Themen

E-Mailversand mit Anhang
Timo

Hallo ich benutze folgenden Code um mir wenn in Spalte C ein Ja steht, eine Mail an die Mailadresse aus Spalte A zu senden! Ich hab alles in einer Userform! Wo sich auch die Listbox1 befindet wo ich den oder die Dateipfad(e) für den Anhang stehen habe!
Wenn ich meine Schleife jetzt durchlau...
11.11.2008 15:07:00
Thread-ID: 1023575
2 Beiträge
Anzeige
Emails an mehrere Empfänger mit Dateinhalten
Julia

Liebes Forum,
Ich wende mich mit der folgenden Bitte an Euch:
In meiner Excel-Datei habe ich einen Code geschrieben, mit dem ich eine Lotus-Notes-EMail an eine bestimmte EMail-Adresse und mit einem bestimmten Inhalt verschicken kann.
Die Datei https://www.herber.de/bbs/user/58345.xl...
13.01.2009 17:14:00
Thread-ID: 1039317
3 Beiträge
excel tabellenblatt mit outlook versenden
Hansi

Bitte um Hilfe - ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:
Sub Blatt_senden() Sheets("NAME").Copy ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Zahlen" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub
Wie kann...
19.02.2009 10:00:00
Thread-ID: 1052006
5 Beiträge
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Anzeige
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
2 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Anzeige
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:32:33
Thread-ID: 1084612
7 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Anzeige
Email per VBA versenden
Armin

Hallo,
ich habe folgende Frage zum Versenden einer E-Mail per VBA:
1. Es soll eine Mail mit eigenem Text, Betreffzeile und Vorgabe der Mail-Adresse erzeugt werden .
2. In Outlook soll nur das Mail-Fenster mit dem Text etc. angezeigt werden. Kein automatischer Versand der Email.
...
23.11.2009 12:18:27
Thread-ID: 1119417
10 Beiträge
Email mit Anhang, falls Anhang verfügbar
Thomas

Hallo zusammen,
ich hänge gerade wieder an einer Stelle.
Ich habe ein Makro, welches vollautomatisch täglich Emails aus Excel mit 2 pdf-Dateien im Anhang versendet. Es werden ca. 50 Emails verschickt. Jede Mail an unterschiedliche Empfänger und mit unterschieldlichen pdf - Anhängen. Die...
02.12.2009 08:53:16
Thread-ID: 1121328
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige