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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Definiertes Tabellenblatt per Email

Forumthread: Definiertes Tabellenblatt per Email

Definiertes Tabellenblatt per Email
09.06.2017 09:23:27
Marcel
Hallo liebe Gemeinde,
ich bin mal wieder auf eure Hilfe angewiesen.
Probiere schon seit Tagen rum, mir ein VBA Code nach meinen Bedürfnissen zusammenzustellen, welches folgendes erledigen soll:
Ausgangslage:
Ich habe eine Arbeitsmappe mit mehreren Tabellenblätter.
Jetzt soll per Email eine definierte mit dem Namen "Stunden" als Email Excel Anhang verschickt werden.
Der Dateinamen soll immer lauten, JJJJ_MM und was in A1 aus einem anderen Tabellenblatt "Daten" steht.
Die Emailadresse soll aus A2 aus einem anderen Tabellenblatt "Daten" genommen werden.
Mein nächstes Problem wäre mit dem Body.
Hier soll ein vordefinierter Text aus dem Tabellenblatt "Daten" genommen werden.
Der Text soll in mehrere Zeilen mit jeweils einer Leerzeile
A3: Text1
Leerzeile
A4: Text2
Leerzeile
Zusätzlich soll der Anhang, welcher zwischengespeichert wurde dann nach dem Versand wieder gelöscht werden.
Ich danke euch für eure Hilfe.
Liebe Grüße
Marcel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Definiertes Tabellenblatt per Email
09.06.2017 11:07:18
ede
Hallo Marcel,
mal auf die Schnelle, ohne Plausi... 

Sub Mailversand()
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Dim FileName As String
'Anhang erzeugen
FileName = Year(Date) & "_" & Month(Date) & "_" & ThisWorkbook.Sheets("Daten").Cells(1, 1) & ". _
xlsx"
shName = ThisWorkbook.Sheets("Daten").Cells(1, 1)
ThisWorkbook.Sheets(shName).Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName
'Mail versenden
Anhang = ActiveWorkbook.FullName
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = ThisWorkbook.Sheets("Daten").Cells(2, 1)   ' "mailadresse"
.Subject = "Stunden"     ' Betreff
.attachments.Add Anhang
.Body = ThisWorkbook.Sheets("Daten").Cells(3, 1) & vbCrLf & ThisWorkbook.Sheets("Daten").Cells( _
4, 1) & vbCrLf & "Siehe Anlage: " & FileName
.Display
' .Mail.Send
End With
'Anhang löschen
ActiveWorkbook.Close
Kill Anhang
'fertig
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub
Gruss
Ede
Anzeige
;

Forumthreads zu verwandten Themen

Durchrechnung nur für ein Blatt ausschalten
KlausF

Hallo Excelperten!
In einer Datei schalte ich beim Öffnen mittels AutoOpen-Makro die automatische Durchrechnung bisher ganz aus.
Wie kann ich aber die automatische Durchrechnung nur für ein bestimmtes Blatt (z.B. Tabelle1) abschalten?
Geht das überhaupt so eingeschränkt?
Besten...
13.09.2008 15:37:53
Thread-ID: 1009517
3 Beiträge
Anzeige
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Anzeige
Warnung wenn Tabelle per E-mail verschickt
Deister

Hallo,
Ich verschicke mit folgendem Code eine Seite per E-mail
Sheets("Tabelle1").Select
ActiveWorkbook.SendMail Recipients:="Hier die E-Mail Adresse eintragen"
Dann bekomme ich aber folgende Warnung:
A program is trying to automatically send e-mail on your behalf.
Do yo...
24.04.2009 16:29:13
Thread-ID: 1071009
20 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Anzeige
Tabellenbereich per Email
Matthias

Hallo,
ich bin auf der Suche nach einer Möglichkeit, einen Tabellenbereich per Email zu versenden und zwar direkt in den Textbereich z.B. als Grafik und NICHT als Anhang.
Leider kann ich dazu nix im Netz finden.
Gibt es diese Möglichkeit ? und wenn ja, wie geht sie ?
Vielen Dank...
22.06.2009 12:49:18
Thread-ID: 1083437
4 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge
Tabelle in Intervallen per Mail verschicken
Universal

N`Abend zusammen! :-)
Ich würde gern meine Arbeit etwas erleichtern ... meine Kollegen und ich haben eine Excel-Tabelle, die jede Stunde mit Daten gefüllt wird. Wie ich Mails per VBA verschicken kann weiss ich. Leider fehlt mir aber das Wissen um die Tabelle in einem stündlichen Intervall a...
21.12.2009 23:03:13
Thread-ID: 1125480
7 Beiträge
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 Beiträge
Tabelle per Mail - Warnmeldung umgehen
F.

Hallo zusammen
Ich möchte ein Tabellenblatt an eine festgelegte Adresse senden lassen.
Dabei sollte die im Betreff der Inhalt der Zelle C4 und "test" stehen. Zudem sollte
die Warnmeldung umgangen werden. Einzeln klappte das recht gut. Aber nie zusammen.
Im Code unten fehlt ua....
15.04.2010 15:05:50
Thread-ID: 1152005
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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