Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich als EMail senden

Forumthread: Bereich als EMail senden

Bereich als EMail senden
13.01.2015 11:07:33
NoPa
Hallo,
ich möchte aus einer Tabelle einen beliebigen Bereich markieren und in eine Email als Text einfügen!
Ich schaffe es den Bereich zu markieren und in eine separate Tabelle einzufügen und diese dann zu versenden.
Aber ich würde den Inhalt der markierten Zellen lieber als Text in die Mail einfügen und dann versenden!
Ist das möglich!?
Hier die Tabelle:
https://www.herber.de/bbs/user/94962.xlsm
Danke
Gruß
Norbert

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich als EMail senden
13.01.2015 12:00:23
Rudi
Hallo,
mal ganz primitiv:
<pre>Sub BereichMailen()
Dim RG As Range 'Bereich
Dim appOutlook As Outlook.Application
Dim MailItem As Outlook.MailItem
'Bereich ermittel, in neue Tabelle kopieren
Set RG = Application.InputBox _
(Prompt:="Wählen Sie den Bereich aus," _
& "der per Email versendet werden soll!", Type:=8)
'Outlook starten
Set appOutlook = CreateObject("Outlook.Application")
Set MailItem = appOutlook.CreateItem(olMailItem)
'Email erstellen
With MailItem
.To = "max@MUSTERMANN.de"
.Subject = "Muster Betreff"
.HTMLBody = "Hallo," & "<br>" & HtmlText(Selection) & "<br>" _
& "Danke" & "<br>" & "Gruß"
'Email Senden
'.Send
.Display
End With
End Sub</pre>
<pre>Function HtmlText(rSel As Range)
Dim sTmp, r As Range, c As Range
sTmp = "<table>"
For Each r In rSel.Rows
sTmp = sTmp & "<tr>"
For Each c In r.Cells
sTmp = sTmp & "<td>" & c.Text & "</td>"
Next
sTmp = sTmp & "</tr>"
Next
sTmp = sTmp & "</table>"
HtmlText = sTmp
End Function</pre>
Gruß
Rudi

Anzeige
AW: Bereich als EMail senden
13.01.2015 12:53:38
NoPa
das ist echt super!
danke
Gruß
Norbert
;

Forumthreads zu verwandten Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Anzeige
Tabelle in Intervallen per Mail verschicken
Universal

N`Abend zusammen! :-)
Ich würde gern meine Arbeit etwas erleichtern ... meine Kollegen und ich haben eine Excel-Tabelle, die jede Stunde mit Daten gefüllt wird. Wie ich Mails per VBA verschicken kann weiss ich. Leider fehlt mir aber das Wissen um die Tabelle in einem stündlichen Intervall a...
21.12.2009 23:03:13
Thread-ID: 1125480
7 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo, leider war mein letzter Beitrag schon wieder zu ... hier nocheinmal die Problematik:
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf...
19.01.2010 14:59:16
Thread-ID: 1131070
2 Beiträge
Zeile einfügen und kopieren
Matthias

Hallo zusammen,
ich habe wieder mal ein kleines Problem und komme nicht ganz zurecht damit.
Ich habe ein Tabellenblatt mit z.Zt. knapp 4000 Einträgen (Zeilen) und mehreren Spalten (Spalten A bis AB).
Jetzt will ich irgendwo eine neue Zeile einfügen, dabei sollte der Inhalt von einig...
12.03.2010 07:32:25
Thread-ID: 1145269
10 Beiträge
Termineintrag über Exceltabelle in Outlook
Lemmi

Hallo zusammen,
heute hat "Mann" soviele Vertäge und Angebote die es einem schwierig machen, alles im Bilck zubalten!
Ich möchte gerne wissen ob ich mir aus eine Excel- Datei eine Termineintrag in Outlook machen kann!
Also ich habe eine Musterdatei aufgebaut (https://www.herber.de/...
13.06.2010 15:51:22
Thread-ID: 1161664
13 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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