Guten Tag,
ich bin gerade dabei einen "Bestellkatalog" für den Firmenaußendienst zu erstellen.
Über einen Bestellbutton soll der Text aus einer Spalte in den E-Mail-Body eingefügt werden.
Das klappt auch ganz gut nur weiß ich nicht wie ich es bewerkstellige nur befüllte zellen einzufügen. So wie es jetzt ist entstehen da zum Teil große Lücken und das sieht nicht hübsch aus.
So sieht der Code jetzt mal aus:
Private Sub CommandButton1_Click()
Dim bereich As Range, a, z, s, zeile, gesamt, alles
Set bereich = Range("J8:J100")
For Each a In bereich.Areas
For z = 1 To a.Rows.Count
For s = 1 To a.Columns.Count
zeile = zeile & " " & a.Cells(z, s)
Next
gesamt = gesamt & vbCrLf & zeile
zeile = ""
Next
alles = alles & vbCrLf & gesamt
gesamt = ""
Next
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxx@xxx.com"
.cc = "xxx@xxx.com"
.Subject = "Materialbestellung " & Date
.Body = "Materialbestellung " & Range("B1").Value & vbCrLf & "Kommentar: " & Range("B3").Value & alles
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Danke schonmal für die Hilfe.
beste Grüße
Roman |