Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sendmail Tabellenblatt

Sendmail Tabellenblatt
11.12.2003 14:18:38
Janni Skouras
Hallo Leute,

habe einige Zeit in den Archiven gesucht aber nichts passendes gefunden.

Ich möchte aus einer Arbeitsmappe einzelne Tabellen versenden (Name1, Name2, Name3 usw.). Dies funktioniert auch. Nur habe ich das Problem das Tabellenname im Emailanhang immer Mappe1 lautet. Er soll aber dem jeweiligen Tabellenblatt entsprechen. Ich benutze vereinfacht folgenden Code

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Name1").Copy
ActiveWorkbook.SendMail Recipients:=(Empfänger)
ActiveSheet.Name = "NameTest"
ActiveWorkbook.Close

Die Position ActiveSheet.Name = "NameTest" funktioniert nicht!

Hat irgendjemand einen Tip.

Danke im Voraus

Janni Skouras

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sendmail Tabellenblatt
11.12.2003 14:26:05
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("B1").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Range("B1").Value
ActiveWorkbook.Close savechanges:=False
End Sub


Range("B1") = Tabellenname

Hoffe es hilft dir...

Gruß Andreas
AW: Sendmail Tabellenblatt
11.12.2003 14:32:46
Jannis Skouras
Hallo Andreas,

vielen Dank für die Antwort.
Hat sehr gut funktioniert!

Grus

Janni
Anzeige
AW: Sendmail Tabellenblatt
11.12.2003 14:41:59
AndreasS
Danke für die Rückmeldung.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige