Leerzeile nur einfügen wenn Zeile Daten enthält

[FrankyHB]

Hallo,

ich versuche mich gerade an einem Textbaustein für E-Mails.

In der Excel-Tabelle von B3:B10 kann variabler Text eingegeben werden welcher dann an das E-Mailprogramm übergeben wird.

Nach jeder Zeile soll eine Leerzeile eingefügt werden. Das klappt auch sehr gut, nur werden die Leerzeilen auch eingefügt wenn in der
Excel Tabelle die Zeilen leer sind.

kann ich das unterdrücken?

Code:
With myAnswer
  .Body = (Tabelle1.Range("B25").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B3").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B4").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B5").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B6").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B7").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B8").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B9").Value) _
& Chr(10) & "" & Chr(10) & (Tabelle5.Range("B10").Value)
  .Attachments.Add strPath & strFile
  .Display
End With


Ergebnis:

Sehr geehrte Damen und Herren,

Im Anhang erhalten Sie die Rechnung(en) für den Aufenthalt Ihres(r) Mitarbeiter(s).

Für weitere Fragen und Wünsche stehen wir Ihnen gerne zur Verfügung.







Mit freundlichen Grüßen / Best regards  

User

Ergebnis sollte SO aussehen:

Sehr geehrte Damen und Herren,

Im Anhang erhalten Sie die Rechnung(en) für den Aufenthalt Ihres(r) Mitarbeiter(s).

Für weitere Fragen und Wünsche stehen wir Ihnen gerne zur Verfügung.

Mit freundlichen Grüßen / Best regards  

User




Kann mir jemand weiter helfen?

Beste Grüße

Frank Hänschen

[ralf_b]

& iif(Tabelle5.Range("B6") = "", "",Chr(10) & "" & Chr(10) & (Tabelle5.Range("B6").Text))

[FrankyHB]

Hallo Ralf,

vielen, vielen Dank.

Genau das war´s

Gruß
Frank