Dim tmp As String
tmp = "Sehr geehrte Damen und Herren," & vbNewLine _
& vbNewLine _
& "Bestellung vom: " & Worksheets("Bestellformular").Range("P4").Value & vbNewLine _
& "Besteller: " & Worksheets("Bestellformular").Range("D8").Value & vbNewLine _
& "Telefon" & Worksheets("Bestellformular").Range("P8").Value & vbNewLine _
& vbNewLine _
& "Artikel: " & vbNewLine
If Len(Worksheets("Bestellformular").Range("X8").Value) > 0 Then
tmp = tmp & Worksheets("Bestellformular").Range("X8").Value & vbNewLine
End If
Bei mehrere Artikel natürliuch mit Schleife.
|