Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern und senden als anhang

Speichern und senden als anhang
08.07.2005 12:07:55
mike
Hallo gemeinde,
wer kann mir bei einem kleinen Problem helfen?
Ich möchte eine Datei test.xls als test zelleA1.xls speichern.
dann soll diese datei als anhang mit dem betreff test an mich@test.de gesendet werden.
für mich als VBA anfänger nicht lösbar
Danke miked

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

Betreff
Datum
Anwender
Anzeige
AW: Speichern und senden als anhang
08.07.2005 14:36:43
F@ker
schau mal hier :

Sub BestellungSpeichern(Dateiname As String)
Dim ZOrdner As String
Application.ScreenUpdating = False
ZOrdner = Application.ActiveWorkbook.Path
ZOrdner = ZOrdner & "\Speicherort"
Dim WB As Workbook
Worksheets(2).Copy
Set WB = ActiveWorkbook
ActiveSheet.OLEObjects.Delete
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Dateiname = ZOrdner & "\" & Dateiname
ActiveWorkbook.SaveAs Dateiname
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub



Sub BestellungMailen(Dateiname As String)
Dim OutObj As Object
Dim Mail As Object
Dim Name As String
Dim EMailName As String
Set OutObj = CreateObject("Outlook.Application")
Set Mail = OutObj.CreateItem(0)
Name = "mich"
EMailName = "mich@test.de"
Mail.To = EMailName
Mail.Subject = "xxx"
Mail.Body = "Hallo " & Name & "," & Chr(13) & Chr(13) & _
"xxx"   & _
Chr(13) & _
Chr(13) & _
"M.f.G."
Mail.Attachments.Add Dateiname
Mail.display
Set OutObj = Nothing
Set Mail = Nothing
End Sub

Anzeige
AW: Speichern und senden als anhang
11.07.2005 11:14:58
mike
Hallo F@ker
ich glaub ich schall das nicht so recht.
Ich habe einen Button erstellt und wenn ich drauf klike soll die gespeichert werden
z.Bsp so
ActiveWorkbook.SaveAs "C:\Kundenanfrage\Kundenanfrage" & Range("A9").Value
dann die datei als Anhang an mich gemailt werden.
Ich muß doch dem Button den Makronamen zuweisen.
Wie kann dann deine anweisung ausgeführt werden?

AW: Speichern und senden als anhang
11.07.2005 11:20:47
mike
Beim Ausführn bleibt das makro da stehen
Mail.Attachments.Add Dateiname

98 Forumthreads zu ähnlichen Themen

rückgängig historie speichern vor SelectionChange
Susanne

Hallo zusammen,
ich benutze eine Worksheet_SelectionChange Prozedur und ändere damit Formate meiner Zellen. Jedes ausgeführte Makro löscht ja die Rückgängig Historie. Nun möchte ich gerne zu Beginn des Makros die Historie speichern und am Ende des Makros wieder einfügen. Es soll also nicht...
18.09.2008 10:37:00
Thread-ID: 1010643
5 Beiträge
Anzeige
Prüfen ob Datensätze vorhanden ggf. hinzufügen
Urmila

Hallo alle gemeinsam,
im Tabelle 1 stehen daten, Spalte A Dokument...Spalte D Datum.
Nun will ich dass geprüft wird, ob Datum größer als Heute, dann prüfen
ob Dokument von Spalte A in Tabelle 2 (ebenfalls Spalte A) vorhanden,
wenn nicht, diese Zeile kopieren und in Tabelle 2 al...
09.01.2009 12:56:00
Thread-ID: 1038201
5 Beiträge
Datei speichern, wenn vorhanden nicht überschreibe
Elias

Hallo Forum,
ich brauche mal wieder ein wenig Hilfe.
Unten findet Ihr den Code eines Buttons, mit dessen Hilfe ich eine Datei unter einem
sich aus der Excel-Datei ergebenden Namen in einem fix vorgegebenen Pfad im Datei-
system anlege.
Nun bestünde theoretisch die Möglichkei...
17.03.2009 15:24:49
Thread-ID: 1061133
3 Beiträge
Anzeige
Label alle 10 Sekunden für 5 Sekunden anzeigen
k

Hallo,
...mal was anderes. Für unsere Azubis soll ein kleines "Lern-Spiel" gebastelt werden in Excel. Dazu sollen alle 10 Sekunden in einer Userform ein Produktname erscheinen und 5 Sekunden stehen bleiben. Der Azubi hat dann in dieser Zeit die Möglichkeit alles was ihm dazu einfällt in ein...
11.08.2009 16:53:14
Thread-ID: 1095083
7 Beiträge
nach Speichern automatisch Schließen
Valeri

Hallo liebes Forum,
ich möchte meine Arbeitsmappe nach dem ich gespeichert habe Automatisch schlissen lassen.
Wie würde den der Code dafür aussehen?
Vielen Dank schon mal im Voraus!
Gruß Valeri
11.01.2012 11:23:23
Thread-ID: 1245611
12 Beiträge
Uhrzeit nach Wenn-Abfrage automatisch eintragen
GP

Hallo VBA-Künstler,
ich möchte automatisch die Uhrzeit nach nach einer Wenn-Abfrage eintragen und einfrieren.
Folgender Code wird verwendet:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1:C100")) Is Nothing Then Exit Sub If Target.Value "ok" Th...
15.01.2014 14:59:00
Thread-ID: 1345327
4 Beiträge
Automatische Aufforderung zu Speichern nach Öffnen
Michael

Hallo,mein Problem: Ich möchte, dass nach dem Öffnen meiner Excel-Vorlage der Benutzer sofort zum Speichern dieser als xls-Datei aufgefordert wird.Kann mir jemand helfen?Michael
31.07.2002 14:18:16
Thread-ID: 143099
3 Beiträge
VBA Daten aus anderer Excel laden und speichern
teambob


VBA Daten aus anderer Excel laden und speichern
Beitragvon Teambob » 06. Nov 2015, 10:28
Hallo Community,
ich habe ein kleines Programm mit VBA geschrieben, wo ich den Lagerbestand abfrage und Zu/Abbuchen kann.
Die Daten werden dann in einer Tabelle in der gleichen Excel ge...
06.11.2015 11:25:42
Thread-ID: 1456666
3 Beiträge
Anzeige

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
4
5
4
2
1
6
11
3
2
2
4
9
1
4
5
1
3
3
3
1
1
1
5
5
3