Office: (Office 2016) Zeilenumbruch in VBA einfügen

Fullyt · 25. November 2018

Hallo, ich möchte im String einen Zeilenumbruch einfügen.

Online habe ich folgende Lösungsvorschläge gefunden, die jedoch beide bei mir einen Sytaxfehler aufpoppen lassen

Nr.1:

Code:

Dim sText As String
sText = "Hello," & vbCrLf & "there is a new Subtask for" & " " & Hauptaufgabe & ":" & " " txtTaskTitle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nr.2:

Code:

Dim sText As String
sText = "Hello," & _
"there is a new Subtask for" & " " & Hauptaufgabe & ":" & " " txtTaskTitle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie bekomme ich das hin? Danke!

:)

fraeser · 27. November 2018

zu Nr. 1:
Code:

sText = "Hello," & vbCrLf & "there is a new Subtask for Hauptaufgabe: " & txtTaskTitle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weiter Umbrüche mit vbCrLf natürlich möglich.

Fullyt · 27. November 2018

Wo ist hier der Unterschied zu meinem oben angegebenen Umbruch?

Nouba · 27. November 2018

vor txtTaskTitle fehlt das Textverknüpfungszeichen &.

fraeser · 27. November 2018

Genau,
ach sorry, falls Hauptaufgabe eine Stringvariable ist, natürlich entsprechend aus den Anführungszeichen herausnehmen...
Code:

sText = "Hello," & vbCrLf & "there is a new Subtask for " & Hauptaufgabe & ": " & txtTaskTitle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fullyt · 27. November 2018

Hallo, danke *Smilie

Das ganze ist Teil eines Codes um auf Knopfdruck eine Mail zu erstellen.

Jetzt habe ich zum Glück keinen Syntaxfehler mehr aber in der Mail, die durch den Sub ausgegeben wird, sind die eingegebenen Zeilenumbrüche nicht *upps

Hier der komplette Code, evtl. habe ich hier ja einen Fehler gemacht.

Code:

Private Sub MailButton_Click()
'-------------< fx_Email_Senden() >-------------
On Error GoTo Fehler
Dim sEmail_Adress As String
sEmail_Adress = Zugewiesen1Mail & " " & ";" & " " & Zugewiesen2Mail & " " & ";" & " " & VerantwortlichMail
Dim sTitle As String
sTitle = "[CURT]: " & Hauptaufgabe & ":" & " " & "New Subtask:" & " " & txtTaskTitle
Dim sText As String
sText = "Hello," & vbCrLf & _
"there is a new Subtask for" & " " & Hauptaufgabe & ":" & " " & txtTaskTitle & "." _
& " " & "Description of Subtask:" & " " & txtDescription & " " & "Priority of subtask:" & cboPriority & " " & "Attachments:" & " " & "attAttachments"

'----< USE OUTLOOK APP >----
Dim app_Outlook As Outlook.Application
Set app_Outlook = New Outlook.Application
'--< Email einstellen >--
Dim objEmail As Outlook.MailItem
Set objEmail = app_Outlook.CreateItem(olMailItem)
objEmail.To = sEmail_Adress
objEmail.Subject = sTitle
objEmail.HTMLBody = sText
objEmail.Display True
'--< Email einstellen >--
'< Abschluss >
Set objEmail = Nothing
Set app_Outlook = Nothing
'--------------------------
Beenden:
Exit Sub
Fehler:
If Err.Number = 94 Then
MsgBox "Bitte alle mit * gekennzeichneten Felder ausfüllen"
Resume Beenden
Else
MsgBox Err.Number & " " & Err.Description
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fraeser · 27. November 2018

Bislang müsste nur nach "Hello," ein Umbruch erfolgen. Ist der sichtbar?
Eliminiere mal die unnötigen
Code:

& " " &
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.

Fullyt · 27. November 2018

Nein ist nicht sichtbar. Wird folgendermaßen ausgegeben:

fraeser · 27. November 2018

Ah, sehe gerade, Du verschickst ja einen Email-Body im HTML-Format.
Dann musst Du auch HTML nehmen:

Code:

... & "" & ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

anstatt
Code:

... & vbCrLf & ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fraeser · 27. November 2018

Sorry, Zeichen werden verschluckt - schicke gleich Image...

fraeser · 27. November 2018

Hoffe, das kommt jetzt durch...

Fullyt · 27. November 2018

Hat funktioniert! Vielen Dank!!!

Office: (Office 2016) Zeilenumbruch in VBA einfügen

Zeilenumbruch in VBA einfügen

Zeilenumbruch in VBA einfügen

Zeilenumbruch in VBA einfügen

Zeilenumbruch in VBA einfügen

Zeilenumbruch in VBA einfügen - Similar Threads - Zeilenumbruch VBA einfügen

Aus 1 Spalte 2 machen beim Zeilenumbruch

Text mit Zeilenumbruch und Formel mit Variabel per VBA

VBA: Zeilenumbruch, vbCrLf, vbLf

VBA: Werte aus Zellen mit Zeilenumbruch auslesen

Automatischer Zeilenumbruch mit VBA/Makro

CSV-Datei mit Zeilenumbrüchen per VBA importieren

Access VBA -> Word-Tabelle: Wie Zeilenumbruch in Zelle?