Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei per Mail mit Modul, geht das?

Datei per Mail mit Modul, geht das?
06.06.2006 09:56:09
Torge
Hallo,
vielleicht eine etwas komische Frage, wenn in einer Datei ein Modul eingebunden ist, kann man dieses Modul beim senden eines Tabellenblattes per Mail aus der Datei mit versenden?
In dem Modul stehen Anweisungen, diese möchte ich mit versenden, damit die Funktionalität der Datei auch beim Empfänger funktioniert. Bei mir funktioniert das einfach nicht, und hab es schon x-mal versucht.
Sieht bei mir so aus (aus dem Forum):

Private Sub CommandButton5_Click()
Application.ShowWindowsInTaskbar = False
Dim DateiName As String
Sheets(Array("Passwort (2)", _
"Anfrage", _
"C", _
"D", _
"E")).Copy
With ActiveWorkbook
.SaveAs "Zukunft.xls"
DateiName = .FullName
.Sheets(1).Name = "Passwort (2)"
.Sheets(2).Name = "Anfrage"
Sheets("C").Visible = xlVeryHidden
Sheets("D").Visible = xlVeryHidden
Sheets("E").Visible = xlVeryHidden
Application.Dialogs(189).Show "info@test.de", ActiveSheet.Name
.Close False
End With
Kill DateiName
End Sub

Vielen Dank für die Hilfe.
Gruß Torge

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei per Mail mit Modul, geht das?
06.06.2006 10:28:56
fcs
Hallo Torge,
ich tippe auf folgende Zeile als Problemkind:

Application.Dialogs(189).Show "info@test.de", ActiveSheet.Name
ändere in
Application.Dialogs(189).Show "info@test.de", DateiName

Gruß
Franz
AW: Datei per Mail mit Modul, geht das?
06.06.2006 10:44:39
Torge
Hallo Franz,
vielen Dank, hab's probiert, wird leider auch nicht mit versendet.
In der Betreffzeile der Mail steht:
C:\Programme\Gemeinsame Dateien\SYSTEM\MSMAPI\1031\Zukunft.xls.
Schade, hast Du vielleicht noch ein Tipp?
Gruß Torge
AW: Datei per Mail mit Modul, geht das?
06.06.2006 10:57:22
u_
Hallo,
du kopierst ja nur Blätter. Du müsstest das Modul auch kopieren.
Der einfachste Weg: komlette Mappe kopieren und alle nicht gewünschten Blätter löschen.
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Datei per Mail mit Modul, geht das?
06.06.2006 11:27:19
Torge
Hallo,
vielen Dank für den Tipp.
Das Problem ist nur, wenn andere diese Datei haben, sollen diese nur, eben per Mail, jeweils ein sichtbares, wo der Mailbutton steht und dazu die nicht sichtbaren Tabelleblätter ohne das dies bemerkt wird versenden. Da kann ich also nichts kopieren und dann löschen oder doch?
Wenn es gehen sollte, weiss ich leider nicht wie aber vielleicht kannst Du mir einen Ansatz geben, wäre super.
Vielen Dank bis hier.
Gruß Torge
AW: Datei per Mail mit Modul, geht das?
06.06.2006 11:39:21
fcs
Hallo Torge,
habe den Hinweis von U_ auch gerade als Fehlerursache ausgemacht.
Hier die Umsetzung, wie der Code aussehen könnte.

Private Sub CommandButton5_Click()
Application.ShowWindowsInTaskbar = False
Dim DateiName As String, wks As Worksheet
'ggf. aktive Datei speichern
If ActiveWorkbook.Saved = False Then ActiveWorkbook.Save
With ActiveWorkbook
DateiName = .Path & "\" & "Zukunft.xls"
.SaveCopyAs DateiName
End With
Workbooks.Open FileName:=DateiName
With ActiveWorkbook
For Each wks In .Worksheets
Select Case wks.Name
Case "Passwort (2)", "Anfrage"
'Do nothing
Case "C", "D", "E"
wks.Visible = xlVeryHidden
Case Else
'Löschen der Tabellen, die nicht mit der e-mail verschickt werden sollen
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End Select
Next wks
Application.Dialogs(189).Show "info@test.de", ActiveSheet.Name
.Close False
End With
Kill DateiName
End Sub

Gruß
Franz
Anzeige
AW: Datei per Mail mit Modul, geht das?
06.06.2006 13:10:05
Torge
Hallo Franz,
super so sieht alles klasse aus und funktioniert.
Ich Danke Dir ganz doll und wünsch Dir einen schönen Tag für heute.
Gruß Torge

305 Forumthreads zu ähnlichen Themen

Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Anzeige
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
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
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
x-beliebiege Datei als Hyperlink in E-Mail zeigen
Urmila

Hallo alle zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich würde gerne in einer E-Mail nur einen Hyperlink zu einer Datei einfügen.
Das Problem ist nur, die Dateieindung kann immer anders sein, also doc, pdf, xls etc.
Pfad ist immer "C:\Test\", Dateiname steht in Spalte A, a...
08.04.2010 15:45:38
Thread-ID: 1150644
3 Beiträge
Autofilterergebnisse per Email versenden
Mister

Hallo,
ich stehe mal wieder auf'm Schlauch. Aus einer UF heraus filter ich Datensätze in einer Tabelle mit dem Autofilter. Ich möchte jetzt die gefilterte Tabelle per Mail versenden, möchte aber, dass nur die gefilterten Ergebnisse geschickt werden. Ich habe lange im Archiv recherchiert...
27.04.2010 13:47:28
Thread-ID: 1154064
4 Beiträge
Dateien mit Makros
Heinz A. Wankmüller

Hallo Excelfreunde,
ich habe ein Problem mit Dateien, in denen Makros vorhanden sind. Mein Chef hat seit gestern xl2002 installiert bekommen. Er kann jetzt keine Excel-Dateien öffnen, in denen Makros vorhanden sind. Auch der VB-Editor lässt sich nicht öffnen. Ich kann die Stelle, an der sich...
23.05.2002 07:31:21
Thread-ID: 122947
3 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
8
1
3
3
36
1
2
3
2
4
3
4
5
3
4
2
3
2
4
1
1
3
1
1