Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sendmail Tabellenblatt

Forumthread: 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
Anzeige

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
Anzeige
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
AW: Sendmail Tabellenblatt
11.12.2003 14:41:59
AndreasS
Danke für die Rückmeldung.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige