verzend meerdere cellen als text

[JTvD]

Ik heb in een excel file gegevens staan in meerdere cellen (A1 tot H25)

 

Deze wil ik graag aal text in de body van de mail hebben.

 

Heb geprobeerd om dit te doen door  Set Regels = ThisWorkbook.Sheets("blad1"). range ("A1:h25")  te doen maar dat wil niet

een cel lukt zo wel Set Regels = ThisWorkbook.Sheets("blad1"). range ("A1")

 

Hoe krijg ik dit voor elkaar?

[djutoch]

Waarom is het altijd zo moeilijk om een voorbeeldbestandje te posten, het is godgeklaagd.

Na 199 berichten zou je beter moeten weten.

Probeer het zo.

Set ws = Worksheets("Blad1")
Set Regels = Nothing
On Error Resume Next
Set Regels = Intersect(ws.UsedRange, ws.Range("A:H"))
etc....

 

[JTvD]

Je hebt gelijk ik had verwacht dat de zin aanpassen genoeg zou zijn.

Hierbij een voorbeeld bestandje.

 

Het is niet het bestand waar ik het voor nodig heb daar staat te veel bedrijfsinfo in.

Tekst als body in Mail.xlsx

[djutoch]

Kan je daarmee verder?

 

Tekst als body in Mail.xlsm

[JTvD]

Dit is al fantastisch.

Ik was bezig met de text "Kan het ook als text alleen dus zonder de lijnen?"

Maar ik heb de belijning in Excel er uit gehaald en nu gaat het prima.

 

Dankje, 

 

[djutoch]

Dat kan prima ook zonder de lijnen eruit te halen in je origineel bestand.

Tekst als body in Mail(v2).xlsm

22 december 2023 aangepast door djutoch

[JTvD]

Dit is m.

Dankje, hier kan ik verder mee..

[djutoch]

Dank voor je feedback en graag gedaan.

Hou in het vervolg in gedachten dat een voorbeeldbestandje meer zegt dan duizend woorden.😉

 

[kweezie wabbit]

Dan beschouwen we je vraag als opgelost en sluiten het topic af.

.Succes nog en prettige feesten.

23 december 2023 aangepast door kweezie wabbit
typo's verbeterd