Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich per Email senden

Zellbereich per Email senden
07.03.2016 18:50:45
Jens
Hallo zusammen,
ich habe mal wieder ein Problem.
Ich sende mit folgendem Macro eine Email per Lotus Notes.
Dies klappt auch sehr gut, nur möchte ich jetzt im Text einen Zellbereich einfügen.
Und dies will mir nicht gelingen.
Sub Einsatzplanungrausdamit()
Dim dummy As Variant
Dim TextB As Variant
Dim TextT As Variant
TextB = UF.Caption
TextT = sheets("Tabelle1").Range("A1:G20")
dummy = SendNotesMail((TextB), "", "meine-email@mail.de", (TextT), False)
End Sub
Der Fehler liegt in der Zeile "TextT".
Geb ich dort nur eine Zelle an klappt es, nur beim Bereich nicht.
Falls der Bereich nicht möglich ist könnten die Daten auch aus einer mehrspaltigen Listbox genommen werden.
Im vorraus schon mal vielen Dank für eure Mühe.

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

Betreff
Datum
Anwender
Anzeige
TextT ist ein Datenfeld (Array), das nicht ...
07.03.2016 21:34:38
Luc:-?
…einfach in einem Konstrukt verwendet wdn kann, das einen Text erwartet, Jens;
du musst die Inhalte des Bereichs erst zu einem einzigen Text verbinden, entweder mit …&…&… oder vbFkt Join, wobei man aber zeilenweise vorgehen muss. Realistisch sähe das aus, wenn man dem die Form einer MatrixKonstanten gibt, was das Kopieren und realistisches Speichern dieser Daten in einer XlTabelle erleichtern würde: 
Const adRelBer$ = "A1:G20"
Dim iz As Long, xZ As Range  'Deklaration ergänzen!
With Sheets("Tabelle1").Range(adRelBer)
ReDim TextT(.Rows.Count - 1)
For Each xZ In .Rows
TextT(iz) = Join(xZ, "."): iz = iz + 1
Next xZ
End With
dummy = SendNotesMail(TextB, "", "meine-email@mail.de", "{" & Join(TextT, ";") & "}", False)
In dieser Form ist die MatrixKonstante aber nur für Zahlen zu gebrauchen. Kommen außerdem noch bzw nur Texte im Bereich vor, müssten diese in "…" eingeschlossen wdn, wenn das Ergebnis durch Einkopieren in eine Zelle mit vorangestelltem = bei entsprd ausreichender ZellAuswahl in eine XlTabelle verwandelt wdn soll.
Feedback erwünscht! Gruß, Luc :-?
Besser informiert mit …

Anzeige
Ich doch nicht, snb! ;-) Dein Link wäre ZusatzInf!
07.03.2016 22:04:23
Luc:-?
Gruß, Luc :-?

AW: TextT ist ein Datenfeld (Array), das nicht ...
08.03.2016 15:57:06
Jens
Hallo luc,
Leider kommt wieder in der Zeile TextT eine Fehlermeldung.
Ist es denn vllt möglich den Bereich zu kopieren und dann die Zwischenablage dem TextT zuzuweisen?
Dann würde in der Mail auch die tabellenstruktur erkennbar sein.
Danke erstmal für deine Hilfe

Das übliche WW, ...
08.03.2016 20:13:34
Luc:-?
…Jens:
1. Wobei kommt die FMeldung? (Es gibt mehrere Zeilen mit TextT!)
2. Wie lautet sie?
In der ZwischenAblage steht zwar nur Text, aber so, dass er strukturiert einkopiert wdn kann. Ich glaube kaum, dass das den eMail-Versand übersteht, erst recht nicht, dass sich das so einfügen lässt, ohne ebenfalls einen Fehler zu verursachen! ;-)
Aber ich habe den Fehler bereits gefunden! Teste mal das Folgende: 
Sub TestMailText()
Const adRelBer$ = "A1:G20"
Dim iz As Long, dummy$, TextT, xZ, wf As WorksheetFunction
Set wf = WorksheetFunction
With Sheets("Tabelle2").Range(adRelBer)
ReDim TextT(.Rows.Count - 1)
For Each xZ In .Rows
TextT(iz) = Join(wf.Transpose(wf.Transpose(xZ)), "."): iz = iz + 1
Next xZ
End With
Debug.Print "{" & Join(TextT, ";") & "}"
'    dummy = SendNotesMail(TextB, "", "meine-email@mail.de", "{" & _
Join(TextT, ";") & "}", False)
Set wf = Nothing
End Sub
Aber wie gesagt — nur für Zahlen!
Luc :-?
Anzeige

308 Forumthreads zu ähnlichen Themen

Mailversand mit Anhang
Tom

Hallo zusammen,
habe eigentlich genau das im Archiv gefunden, was ich wollte - Mailversand an viele Empfänger.
Habe es auch etwas angepaßt. https://www.herber.de/bbs/user/54483.xls
Was mir jetzt noch fehlt, ist, dass ich gerne eine Datei aus dem Verzeichnis
(C:\Dokumente und Ei...
10.08.2008 09:44:49
Thread-ID: 1000570
12 Beiträge
Anzeige
Mail als Blindkopie versenden
PeterE

Hallo zusammen
da bin ich mal wieder
ich habe folgenden Befehl gefunden
Call ShellExecute(0&, "Open", "mailto:" + sAdr + "?Subject=" + sSub + "&Body=" + sBody, "", "", 1)
der funktioniert auch bestens, doch ich möchte das gleiche Mail an meherer Benutzer schicken und des...
10.12.2008 20:15:00
Thread-ID: 1031815
3 Beiträge
email mit Betreff versenden
Tobiax

Hallo!
Ich würde gerne auf Knopfdruck meine gesamte Exceldatei abc.xls versenden.
In der Betreff Zeile soll aus dem Blatt "Tabellen" die Zelle E2 verwedet werden
Die email Adressen sind Spalte A des Blattes "Verteiler" eingetragen.
Ich würde aber gerne noch einen Text selber sch...
09.03.2009 13:48:59
Thread-ID: 1058146
13 Beiträge
Anzeige
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
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
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
Anzeige

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
1
2
12
8
1
1
3
1
6
5
3
2
1
1
36
1
2
3
6
2
3
3
5
14