Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einzelnes Tabellenblatt mailen

Einzelnes Tabellenblatt mailen
08.01.2004 13:20:52
thomas
Hallo,
sorry für diese unprofessionelle Frage:
Kann man auch ein einzelnes Tabelleblatt aus einer Arbeitsmappe als Anhang mailen?
Danke für die Hilfe.
thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelnes Tabellenblatt mailen
08.01.2004 13:33:10
AndreasS
Hallo,

Sub AktiveTabelleEmail()
Dim Empfänger As String
Empfänger = InputBox("Geben Sie den Empfänger der Email ein: ")
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("ABC").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Range("ABC").Value
ActiveWorkbook.Close savechanges:=False
End Sub

ABC solltest du noch anpassen...
Hoffe geholfen zu haben.
Gruß
Andreas
AW: Bestens Dank
08.01.2004 18:48:32
thomas
--- o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige