Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email - "Zuviele Zeichenfortsetzungen"

Forumthread: Email - "Zuviele Zeichenfortsetzungen"

Email - "Zuviele Zeichenfortsetzungen"
23.11.2006 11:35:59
Dirk
Hi @ All !
Stehe mal wieder vor einem kleinen Problem wo ich mit Sicherheit mal wieder den Wald vor lauter Bäumen nicht sehe.
Ich möchte eine Email versenden.
In dem Body werden viele Tabellenwerte eingefügt.
Ich bekomme beim erweitern des Codes allerdings immer die Meldung "Zuviele Zeichenfortsetzungen".
Was muss ich dazwischensetzen um meinen Body fortsetzen zu können ?
IST:

Sub SEND_ACT()
Set Outapp = CreateObject("Outlook.Application")
Set OutSpace = Outapp.GetNamespace("MAPI")
Set Newmail = Outapp.CreateItem(0)
With Newmail
.To = Sheets(1).Cells(19, 4)
.Subject = "Mein Betreff" & Date
.Body = "Hallo" _
& vbLf & "Mit dieser email sende ich mein logfile ..." _
& vbLf _
& vbLf & "Rubrik 1:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(20, 2) _
& vbLf & Sheets("Sheet1").Cells(21, 2) _
& vbLf & Sheets("Sheet1").Cells(22, 2) _
& vbLf & Sheets("Sheet1").Cells(23, 2) _
& vbLf & Sheets("Sheet1").Cells(24, 2) _
& vbLf & Sheets("Sheet1").Cells(25, 2) _
& vbLf & Sheets("Sheet1").Cells(26, 2) _
& vbLf & Sheets("Sheet1").Cells(27, 2)
.SEND
Application.DisplayAlerts = False
End With
Set Newmail = Nothing
Set OutSpace = Nothing
Set Outapp = Nothing
End Sub

Soll:

Sub SEND_ACT()
Set Outapp = CreateObject("Outlook.Application")
Set OutSpace = Outapp.GetNamespace("MAPI")
Set Newmail = Outapp.CreateItem(0)
With Newmail
.To = Sheets(1).Cells(19, 4)
.Subject = "Mein Betreff" & Date
.Body = "Hallo" _
& vbLf & "Mit dieser email sende ich mein logfile ..." _
& vbLf _
& vbLf & "Rubrik 1:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(20, 2) _
& vbLf & Sheets("Sheet1").Cells(21, 2) _
& vbLf & Sheets("Sheet1").Cells(22, 2) _
& vbLf & Sheets("Sheet1").Cells(23, 2) _
& vbLf & Sheets("Sheet1").Cells(24, 2) _
& vbLf & Sheets("Sheet1").Cells(25, 2) _
& vbLf & Sheets("Sheet1").Cells(26, 2) _
& vbLf & Sheets("Sheet1").Cells(27, 2) _
& vbLf _
& vbLf & "Rubrik 2:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(29, 2) _
& vbLf & Sheets("Sheet1").Cells(30, 2) _
& vbLf & Sheets("Sheet1").Cells(31, 2) _
& vbLf & Sheets("Sheet1").Cells(32, 2) _
& vbLf & Sheets("Sheet1").Cells(33, 2) _
& vbLf & Sheets("Sheet1").Cells(34, 2) _
& vbLf & Sheets("Sheet1").Cells(35, 2) _
& vbLf & Sheets("Sheet1").Cells(36, 2) _
& vbLf _
& vbLf & "Rubrik 3:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(29, 2) _
& vbLf & Sheets("Sheet1").Cells(30, 2) _
& vbLf & Sheets("Sheet1").Cells(31, 2) _
& vbLf & Sheets("Sheet1").Cells(32, 2) _
& vbLf & Sheets("Sheet1").Cells(33, 2) _
& vbLf & Sheets("Sheet1").Cells(34, 2) _
& vbLf & Sheets("Sheet1").Cells(35, 2) _
& vbLf & Sheets("Sheet1").Cells(36, 2)
.SEND
Application.DisplayAlerts = False
End With
Set Newmail = Nothing
Set OutSpace = Nothing
Set Outapp = Nothing
End Sub

In der Recherche habe ich keine Lösung gefunden !
Danke
Gruß
Dirk (KR)
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Email - "Zuviele Zeichenfortsetzungen"
23.11.2006 12:18:03
IngGi
Hallo Dirk,
stell deinen eMailbody so zusammen, dann geht's
.Body = "Hallo"
.Body = .Body & vbLf & "Mit dieser email sende ich mein logfile ..."
.Body = .Body & vbLf
.Body = .Body & vbLf & "Rubrik 1:"
.Body = .Body & vbLf & "______________"
.Body = .Body & vbLf
.Body = .Body & vbLf & Sheets("Sheet1").Cells(20, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(21, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(22, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(23, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(24, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(25, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(26, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(27, 2)
.Body = .Body & vbLf
.Body = .Body & vbLf & "Rubrik 2:"
.Body = .Body & vbLf & "______________"
.Body = .Body & vbLf
.Body = .Body & vbLf & Sheets("Sheet1").Cells(29, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(30, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(31, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(32, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(33, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(34, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(35, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(36, 2)
.Body = .Body & vbLf
.Body = .Body & vbLf & "Rubrik 3:"
.Body = .Body & vbLf & "______________"
.Body = .Body & vbLf
.Body = .Body & vbLf & Sheets("Sheet1").Cells(29, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(30, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(31, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(32, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(33, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(34, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(35, 2)
.Body = .Body & vbLf & Sheets("Sheet1").Cells(36, 2)
Gruß Ingolf
Anzeige
AW: Email - "Zuviele Zeichenfortsetzungen"
23.11.2006 20:32:55
Dirk
Super Ingolf !
Vielen Dank für Deine Unterstützung, läuft prima!
Bis Bald
Gruß
Dirk (KR)
;

Forumthreads zu verwandten Themen

Zu viele Zeilenverlängerungszeichen?
TommiH

Hallöchen,
ich habe grade versucht ein Makro aufzunehmen, in dem ich 4 Dateien einlese. Es sind ASCI-Dateien mit einem speziellen Trennzeichen # - wenn ich durch den Assistent gehe, dann kommt bei einer (die Größte) Datei irgendwann der Punkt mit dem Spaltenformat, wo ich Text auswähle (au...
24.09.2008 12:29:00
Thread-ID: 1012032
3 Beiträge
Anzeige
Formel zu viele Zeichen
Monti

Hallo noch mal und guten Morgen,
ich habe mehrere Excel-Dateien, die aufeinander zugreifen. Problem ist nun, dass sich manche nicht öffnen lassen, wenn zuvor nicht schon eine andere Datei offen ist. Beispiel: Datei lässt sich nicht öffnen, weil sie (meine Vermutung) zu viele Formeln (mehrer...
08.06.2009 08:46:15
Thread-ID: 1079802
7 Beiträge
Anzeige
CSV Tablellen Export, zu viele Trennzeichen
Vanessa

Hallo zusammen,
ich muss aus einer Excel Tabelle eine CSV Datei exportieren. Im Internet habe ich bereits ein Exportmakro gefunden, welches soweit sehr gut funktioniert.
Allerdings habe ich das Problem, dass die Zeichenanzahl in jeder Zeile unterschiedlich lang ist und dann in den kürze...
23.10.2014 08:27:47
Thread-ID: 1388105
6 Beiträge
zu viele Zeichen in VBA-Zeilenumbruch im Makrocode
braun

Sheets(1).Select
startzeile = 2
Spalte = 2
startzeile2 = 2
Sheets(1).Select
Letzte_Zeile = Range(Cells(60000, Spalte), Cells(60000, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If Left(Sheets(1).Cells(i, Spalte), 7) = "ABCDEFG" Or Left(Sheets(1).Cells(i,...
26.08.2015 13:43:05
Thread-ID: 1444522
20 Beiträge
MsgBox zu klein bzw. zu viele Zeichen
thorben

Bentötige eine größere MsgBox, da ich zu viele Zeichen habe (mehr als 158).Was kann man da machen?Bekomme leider keine richtige/eigene Textbox hin!!
Vielen Dank
02.01.2003 10:50:50
Thread-ID: 197903
6 Beiträge
Anzeige
Zu viele Leerzeichen!!!
Martin Halberstadt
Hallo liebe Forumsbesucher,

folgender Code scheint irgendwie fehlerhaft zu sein:

ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Range("A3").Value & Range("F3").Value

Als Ergebnis möchte ich haben, dass im Betreff bsp.weise steht: "Hallo Du"
In Zelle "A3" steht "Ha...
31.10.2003 13:47:00
Thread-ID: 331620
9 Beiträge
Zu viele Zeichen in einer Zelle bei gegebener Spal
jorx

Hallo,
wir haben folgende Probleme:
Eine Excel-Tabelle mit immer der gleichen Anzahl an Zeilen auf einer DIN A4-Seite. Die letzte Zeile auf einer Seite muss immer bestehen bleiben. Nun werden Daten in die Tabelle importiert. Bei einer Zeilenzahl von 65 immer 64 Datensätze, da die letzte...
31.03.2005 20:52:44
Thread-ID: 592884
2 Beiträge
Zu viele Zeichen in einer Zelle
Edgar

Kann man eine Excel-Tabelle nachträglich so bearbeiten, dass nach 40 Zeichen in einer Zelle automatisch der Übertrag in die rechts anliegende Zelle erfolgt?
07.12.2005 10:43:30
Thread-ID: 705575
2 Beiträge
zu viele Zeichen ?
Sven

Hallo,
mit nachstehendem Codeschnipsel übertrage ich den Inhalt einiger TextBox'en
in eine Tabelle. Ist ja nix wildes...dachte ich.
Allerdings funktioniert es nur bis ca. 700 Zeichen in tbo_P2_Neu.
Ich dachte immer, dass eine Zelle bis ca. 1200 Zeichen darstellt (?)
In dem F...
15.09.2007 08:40:58
Thread-ID: 907396
3 Beiträge
Zu viele Zeilenverlängerungszeichen?
TommiH

Hallöchen,
ich habe grade versucht ein Makro aufzunehmen, in dem ich 4 Dateien einlese. Es sind ASCI-Dateien mit einem speziellen Trennzeichen # - wenn ich durch den Assistent gehe, dann kommt bei einer (die Größte) Datei irgendwann der Punkt mit dem Spaltenformat, wo ich Text auswähle (au...
24.09.2008 12:29:00
Thread-ID: 1012032
3 Beiträge
Anzeige
Formel zu viele Zeichen
Monti

Hallo noch mal und guten Morgen,
ich habe mehrere Excel-Dateien, die aufeinander zugreifen. Problem ist nun, dass sich manche nicht öffnen lassen, wenn zuvor nicht schon eine andere Datei offen ist. Beispiel: Datei lässt sich nicht öffnen, weil sie (meine Vermutung) zu viele Formeln (mehrer...
08.06.2009 08:46:15
Thread-ID: 1079802
7 Beiträge
CSV Tablellen Export, zu viele Trennzeichen
Vanessa

Hallo zusammen,
ich muss aus einer Excel Tabelle eine CSV Datei exportieren. Im Internet habe ich bereits ein Exportmakro gefunden, welches soweit sehr gut funktioniert.
Allerdings habe ich das Problem, dass die Zeichenanzahl in jeder Zeile unterschiedlich lang ist und dann in den kürze...
23.10.2014 08:27:47
Thread-ID: 1388105
6 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