Excel: Arbeitsblatt per email versenden - boote-forum.de

Sealine Hippe · #1 22.10.2010, 22:03

Moin zusammen,

ich bräuchte mal die geballte Hilfe des BF

Ich brauche eine Routine um ein aktuelles Arbeitsblatt aus Excel per email zu versenden.

Über Entwicklertools, Einfügen, Schaltfläche, Hyperlink einfügen versendet Excel zwar eine Mail an die gewünschte Adresse, nur das aktuelle Arbeitsblatt leider nicht.

Freue mich über eure Tipps.

Vielen Dank

luk · #2 22.10.2010, 22:16

Hallo Ralf,

du kannst direkt aus EXCEL die Mail schicken.
Welche version hast du?

Gruß Lutz

Sealine Hippe · #3 22.10.2010, 22:23

Moin Lutz,

Office 2007

das Arbeitsblatt soll per "Knopfdruck" aus dem Arbeitsblatt versandt werden. Ist für einen Computeranalphabeten. Sie kriegt es nicht hin die normale Befehlsroutine aufzurufen.

luk · #4 22.10.2010, 22:35

dann drück mal mit der linken Maustaste auf den Button

da gibt es eine Rubrik " senden "

dann " E-Mail"

und ab geht s

tenement2 · #5 22.10.2010, 22:46

Zitat:

Zitat von Sealine Hippe

Moin Lutz,

Office 2007

das Arbeitsblatt soll per "Knopfdruck" aus dem Arbeitsblatt versandt werden. Ist für einen Computeranalphabeten. Sie kriegt es nicht hin die normale Befehlsroutine aufzurufen.

... man kann sich auch die Schaltfläche "E-Mail als Anlage" auf die obere Leiste legen. Dann ist die Mappe automatisch in der E-Mail als Anhang.
ANSICHT, SYMBOLLEISTE, ANPASSEN, linke Spalte zeigt "Datei" in der rechten Spalte runterscrollen bis "E-Mail als Anlage" erscheint und dann das Icon oben in die Befehlsleiste ziehen.

Sealine Hippe · #6 22.10.2010, 22:47

Danke,

aber das war es nicht.

Die Arbeitsmappe besteht aus mehreren Arbeitsblättern welche jeweils einzeln an unterschiedliche Empfänger versandt werden sollen.

Das geht aus dem Arbeitsblatt, ich kriege es nur nicht hin. Die Mail wird ja versandt - nur ohne das entsprechende Arbeitsblatt (Tabelle) als Anhang.

Sealine Hippe · #7 23.10.2010, 00:22

Moin,

für alle die es interessiert, das ist die Lösung. Diesen Code der Schaltfläche zuordnen und schon funzt das.

Private Sub CommandButton1_Click()
Dim Mappe As Integer
Mappe = 1
CommandButton1.visible = False
Sheets.Copy
ActiveWorkbook.SendMail "xxxxxx@xxxx.de", "Betreff"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
CommandButton1.visible = True
End Sub

hotteblau64 · #8 10.03.2012, 06:02

super code, nur die e-Mailadresse wird bei mir doppelt angezeigt?