Hoe verzendt u een bereik van cellen via Outlook vanuit Excel?
Tijdens het dagelijks werken met Excel komt het vaak voor dat u een rapport afrondt en vervolgens slechts een deel van de gegevens met een specifieke ontvanger wilt delen. U wilt bijvoorbeeld een bepaald celbereik met belangrijke informatie verzenden in plaats van de volledige werkmap, zodat privacy en relevantie gegarandeerd blijven. De meeste gebruikers geven natuurlijk de voorkeur aan oplossingen die geen handmatig overschakelen naar Outlook of kopiëren en plakken van inhoud vereisen. Bestaan er praktische, efficiënte manieren om een gedefinieerd celbereik direct vanuit Excel per e-mail te versturen?
Deze handleiding verkent diverse methoden om geselecteerde cellen via Outlook te verzenden of e-mailen — van VBA-oplossingen tot ingebouwde Excel-functies — zodat u uw workflow stroomlijnt en handmatig werk vermijdt. Ontdek hoe u een celbereik als bijlage meestuurt, cellen rechtstreeks in de e-mailtekst plaatst, celbereiken eerst opslaat als afbeelding of PDF vóór verzending, of gebruikmaakt van verouderde Excel-mailfuncties. Daarnaast behandelt de gids essentiële installatiestappen, scenario-analyse, praktische probleemoplossingstips en advies voor optimale resultaten.
Celbereik verzenden als bijlage vanuit Excel met VBA-code
Celbereik verzenden als berichttekst vanuit Excel met VBA-code
Celbereik verzenden als bijlage vanuit Excel met VBA-code
Als u een specifieke dataset wilt delen zonder toegang tot de volledige werkmap te verlenen, kunt u een aangewezen celbereik extraheren en dit als bijlage—bijvoorbeeld in .xlsx- of .xls-formaat—via Outlook verzenden. Deze oplossing is vooral waardevol wanneer de ontvanger slechts een deel van het rapport hoeft te controleren of wanneer vertrouwelijkheid cruciaal is. De volgende stappen laten zien hoe u de VBA-code instelt en gebruikt om dit proces te automatiseren:
1. Open uw doelwerkmap in het Excel-werkboek. Druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen, waar u VBA-code kunt invoegen en bewerken.
2. Klik op Invoegen > Module om een nieuwe module voor uw code te maken. Plak het onderstaande script in het modulevenster.
VBA-code: celbereik verzenden als bijlage vanuit Excel
Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "information of kte"
.Body = "hello, please check and read this document. "
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubTips en aanpassingen:
- .ToAan
- .CCen .BCCkunnen worden ingesteld voor carbon copy of blind carbon copy, indien nodig.
- .Subjecten .Bodystellen u in staat het e-mailbericht te personaliseren.
3. Voer de code uit door op F5 te drukken. Er verschijnt een selectievenster. Geef het bereik op dat u per e-mail wilt verzenden (controleer de gegevens altijd vóór verzending). Zie voorbeeldscreenshot:
4. Na het klikken op OK krijgt u mogelijk een voortgangsvenster of een machtigingsmelding te zien. Klik, nadat het proces is voltooid, op Toestaan. Het opgegeven celbereik wordt dan als Excel-bijlage naar uw gekozen ontvanger verzonden.
Voorzorgsmaatregelen en probleemoplossing:
- Als Outlook niet als uw standaardmailprogramma is ingesteld of niet actief is, werkt de code mogelijk niet correct.
- Zorg ervoor dat de macrobeveiligingsinstellingen het uitvoeren van VBA-scripts toestaan – u moet mogelijk macro’s inschakelen of de instellingen in het Vertrouwenscentrum aanpassen.
- Het bijlagetype is afhankelijk van het brondocumenttype en de opgegeven regel in de VBA-code.
- Controleer na het verzenden uw Outlook-map Verzonden items om de levering te bevestigen.
Deze aanpak is ideaal voor veilig datadelen, archivering en situaties waarin de originele Excel-opmaak vereist is. Ontvangers hebben echter wel geschikte software nodig om de bijlage te openen.
Celbereik verzenden als berichttekst vanuit Excel met VBA-code
In scenario’s waarin u wilt dat ontvangers de informatie direct kunnen bekijken zonder bijlagen te hoeven downloaden—zoals periodieke samenvattingen of voortgangsrapportages—kunt u het geselecteerde celbereik rechtstreeks in de e-mailtekst opnemen. Dit verbetert niet alleen de toegankelijkheid, maar maakt de informatie ook directer leesbaar en sneller te verwerken voor ontvangers.
1. Ga naar het werkblad met uw gegevens. Druk op ALT + F11 om toegang te krijgen tot het venster Microsoft Visual Basic for Applications.
2. Klik op Invoegen > Module om een modulevenster te openen en plak vervolgens de volgende code:
VBA-code: celbereik verzenden als berichttekst vanuit Excel
Sub EmailRange()
'Update by Extendoffice
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please read this email."
.Item.To = "skyyang@extendoffice.com"
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End SubOpmerkingen over parameters en praktische aanpassingen:
- .Introductionstelt u in staat een bericht op te nemen vóór het bereik zelf.
- .Item.Tomoet worden bijgewerkt met uw gewenste E-mailadres.
- .Item.Subjectkan worden aangepast aan uw rapportage- of e-maildoel.
3. Voer de macro uit met F5. Selecteer bij de prompt het celbereik dat u wilt verzenden.
4. Bevestig uw selectie en klik op OK. Let op eventuele beveiligingsprompts. Klik na verwerking op Toestaan om de macro te autoriseren. Het dialoogvenster Bereik selecterenverschijnt dan direct in de e-mailtekst van Outlook, opgemaakt als een tabel.
Belangrijke herinneringen:
- Deze oplossing vereist dat Outlook is geïnstalleerd en als standaardmailprogramma is ingesteld.
- Schakel macro’s in Excel in om VBA-procedures probleemloos uit te voeren. Mocht u fouten tegenkomen, controleer dan uw macro-instellingen in het Vertrouwenscentrum.
- De opmaak blijft behouden, maar complexe celopmaak kan er in de e-mail anders uitzien dan in Excel.
- Bezoek uw Outlook-uitgaande post of de map Verzonden items om te bevestigen dat het bericht succesvol is verzonden.
Deze aanpak is ideaal voor teamstatusupdates, snel datadelen of het verspreiden van kerncijfers naar collega’s en klanten die directe leesbaarheid waarderen.
Andere ingebouwde Excel-methoden – Gebruik de ingebouwde functie „Verzenden naar e-mailontvanger” om geselecteerde cellen als berichttekst te verzenden
Sommige oudere Excel-versies (vóór Office 365) bevatten een ingebouwde knop „Verzenden naar e-mailontvanger”, waarmee u snel geselecteerde cellen als e-mailtekst kunt verzenden—zonder VBA. Hoewel deze functie standaard verborgen is in moderne Excel, is deze nog steeds beschikbaar via aanpassing van de Snelle toegangswerkbalk. Deze oplossing werkt goed voor gebruikers met verouderde Excel-installaties of voor wie macro’s liever vermijdt.
Hoe inschakelen en gebruiken:
- Klik met de rechtermuisknop op de Snelle toegangswerkbalk (boven uw lint) en selecteer Snelle toegangswerkbalk aanpassen.
- Wijzig in de lijst met opdrachten „Kies opdrachten uit:” naar Alle opdrachten.
- Scrol omlaag en voeg Verzenden naar e-mailontvanger toe aan uw Snelle toegangswerkbalk.
- Selecteer na de installatie de cellen die u wilt verzenden. Klik op het pictogram Verzenden naar e-mailontvanger—Excel opent direct een ingesloten e-mailvenster met uw selectie als berichttekst. Voeg ontvangers en onderwerp toe en verstuur uw e-mail in één klik.
Belangrijke opmerkingen:
- Deze methode werkt alleen als Outlook is ingesteld als uw standaardmailclient.
- Werken met het ingesloten e-mailvenster voelt anders aan dan het normale opstellen in Outlook—controleer daarom extra goed de opmaak.
- Deze functie is mogelijk uitgeschakeld of niet beschikbaar in bepaalde Excel-versies, met name nieuwere Office 365-builds. Overweeg in dat geval VBA of oplossingen met export naar PDF of afbeeldingen.
Voor- en nadelen:
- Snel en eenvoudig voor ondersteunde versies – geen code of geavanceerde installatie nodig.
- Niet beschikbaar in alle versies; gebruikers van nieuwere Excel-versies hebben mogelijk alternatieve methoden nodig.
Gerelateerde artikelen:
Hoe verzendt u alleen een werkblad via Outlook vanuit Excel?
Hoe verzendt u Huidig werkboek via Outlook vanuit Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins