Office: einzelne Arbeitsblätter aus Arbeitsmappe versenden

Hallo,
wie kann ich einzelne Arbeitsblätter aus einer Arbeitsmappe per EMail versenden?

Vielen Dank für eure Hilfe.

 

Hallo,

hier ist ein Code den du ins modul einsetzt, dann dürfte es funktionieren.

Er wird dich fragen, welches Blatt du verschicken möchtes, also sollte Du immer die Blattnummer kennen. Nach Eingabe der Blattnummer verbindet er Dich direkt zu Outlook.

Code:

Sub einzelnes_Blatt_senden()
Dim blatt As Integer
blatt = InputBox("Welches Blatt möchten Sie senden?" & Chr(13) & _
"Bitte die laufende Blattnummer eingeben")
Sheets(blatt).Copy
ActiveWorkbook.SendMail " ", " "
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Gruß und Viel Spass
Jenny

 

Hallo,
danke für deine Hilfe.
Funktioniert tadellos.

Gruß

Ralf