Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel Blätter via VBA per Mail verschicken
#1
Hallo zusammen,

kann mir jemand sagen wie ich folgenden Codeschnipsel umbauen müsste bzw. etwas vergleichbares zur Verfügung stellen womit ich zwei Tabellenblätter "Tabelle 1" und "Tabelle 3" per Mail verschicken kann?

Code:
Sub einzelnes_Blatt_senden()
'**  Dimensionierung der Variablen
Dim blatt As Integer

'** Abfrage der Blattnummer
blatt = InputBox("Welches Blatt möchten Sie senden?" & Chr(13) & _
   "Bitte die laufende Blattnummer eingeben")

'** Gewähltes Tabellenblatt kopieren
Sheets(blatt).Copy

'** Blatt per E-Mail versenden
ActiveWorkbook.SendMail "m.mustermann@mustefirma.at", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Wenn möglich in einer Mappe mit zwei Blättern, falls zu kompliziert würden auch zwei Mappen aber in der selben Email gehen...

Vielen Dank und lg

Olli
WIN 10 64-Bit Pro / EXCEL Microsoft Office 365 ProPlus 64-Bit
Antwortento top
#2
Hallo Olli,

reicht Dir das?
Gruß Stefan
Win 7 / Office 2007
Antwortento top
#3
Hallo Stefan,

danke - ich denke das hilft mir auf jeden Fall schon einmal weiter.
Falls ich das damit nicht schaffe melde ich mich nochmals.

lg

Olli
WIN 10 64-Bit Pro / EXCEL Microsoft Office 365 ProPlus 64-Bit
Antwortento top
#4
Hallo Olli,
hier im Forum hatten wir aber auch schon die eine oder andere Lösung Wink
http://www.clever-excel-forum.de/thread-...ight=email
und damit man nicht "Senden" drücken muss
http://www.clever-excel-forum.de/thread-...ight=email
und andere
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#5
Hallo André,

danke für den Hinweis, werde ich mir gerne anschauen.

lg

Olli
WIN 10 64-Bit Pro / EXCEL Microsoft Office 365 ProPlus 64-Bit
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste