Clever-Excel-Forum

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

Hallo Olli,

reicht Dir das?

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

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

Hallo André,

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

lg

Olli

friedensbringer

Steffl

friedensbringer

schauan

friedensbringer