Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top
#2
Hallo Olli,

reicht Dir das?
Gruß Stefan
Win 7 / Office 2007
to 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
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top
#4
Hallo Olli,
hier im Forum hatten wir aber auch schon die eine oder andere Lösung ;-)
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)
to top
#5
Hallo André,

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

lg

Olli
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Blätter kopieren, Monatswechsel beachten. Didi 2 55 04.12.2016, 21:51
Letzter Beitrag: Didi
  E-Mail mit Text als Link AlpenZwerg 5 83 01.12.2016, 19:52
Letzter Beitrag: mumpel
  Summewenn mehrere Blätter Mario_Hana 7 71 21.11.2016, 16:04
Letzter Beitrag: BoskoBiati
  E-Mail aus Outlook in Excel-Gruppierung hinzufügen MacTop 6 121 15.11.2016, 11:26
Letzter Beitrag: MacTop
  E-Mail Benachrichtigung nach Änderung an einer Excel-Datei mrmbj 1 85 11.11.2016, 17:09
Letzter Beitrag: schauan
  Ein PDF Dokument anhand mehrerer Blätter erstellen Reismann 4 103 04.11.2016, 06:19
Letzter Beitrag: Reismann
  Makro > E-Mail > Wort WAHR im Text Brotmaschine 6 153 21.10.2016, 06:52
Letzter Beitrag: Brotmaschine
  zeile(n) über mehrere Tab.blätter einfügen radagast 4 164 22.09.2016, 13:31
Letzter Beitrag: radagast
  Ein Bereich mehrere Blätter Wiegand 2 165 22.09.2016, 08:05
Letzter Beitrag: Wiegand
  E-Mail automatisch aus Excel versenden Garfield123 31 914 20.09.2016, 18:21
Letzter Beitrag: Käpt'n Blaubär

Gehe zu:


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