Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in E-Mail einfügen

Daten in E-Mail einfügen
15.04.2023 14:05:47
Andi

Hallo liebe Excel-Experten,

Ich hab ein Excel-Tool mit der ich mit Hilfe einer Schaltfläche eine E-Mail mit Anhang (eine fremde Excel-Datei) erstellen kann - soweit so gut.

Nun zu meiner Frage:
Kann ich eine Zelle (z.B. A1) aus der fremden Excel-Datei auslesen und in die E-Mail einfügen?

E-Mail könnte z.B. lauten:


"Hallo,

die Testdatei enthält 8 Produkte

VG"


Die Zahl 8 ist in A1 in der fremden Excel-Datei zu finden

Gerne füge ich noch eine Excel-Datei bei, aber wollte erstmal grundsätzlich fragen, ob dies überhaupt möglich ist.

Vielen Dank

Schöne Grüße
Andi

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

Betreff
Datum
Anwender
Anzeige
AW: Daten in E-Mail einfügen
15.04.2023 15:02:36
Phio
Hallo, das ist grundsätzlich kein Problem.
Rückfrage: Soll die "fremde Excel-Datei" mit in die Mail, oder sollen das 2 verschiedene E-Mails werden.

Für zwei verschiedene Mails: 

Sub EmailMitZelle()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Pfad As String
    Dim Wbk As Workbook
    Dim Zelle As Range
    
    'Dateiauswahl öffnen
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel-Dateien", "*.xlsx, *.xlsm, *.xlsb, *.xls, *.xla, *.xlam, *.xltm"
        .InitialFileName = "C:\Test\"
        If .Show = True Then
            Pfad = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    'Öffnen der ausgewählten Excel-Datei
    Set Wbk = Workbooks.Open(Pfad)
    
    'Lesen des Werts aus Zelle A1
    Set Zelle = Wbk.Worksheets(1).Range("A1")
    Dim Zellenwert As Integer
    Zellenwert = Zelle.Value
    
    'Erstellen der E-Mail
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .BodyFormat = 2
        .To = "empfaenger@email.com"
        .Subject = "Betreff der E-Mail"
        .HTMLBody = "Hallo,
die Testdatei enthält " & Zellenwert & " Produkte.
VG"
        .Attachments.Add Pfad
        .Display
    End With
    
    'Schließen der fremden Excel-Datei
    Wbk.Close False
    
    'Freigeben der Speicher
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    Set Wbk = Nothing
    Set Zelle = Nothing
    
End Sub


Anzeige
AW: Daten in E-Mail einfügen
15.04.2023 15:20:23
Andi
Wow, vielen Dank. Werd es morgen gleich ausprobieren. Eine kurze Frage noch:
Was heißt "freigeben der Speicher"?

Nochmal vielen Dank


AW: Daten in E-Mail einfügen
15.04.2023 15:43:29
Phio
Die Zeilen im Code nach "'Freigeben der Speicher" geben den Speicherplatz frei, der von den Objekten verwendet wurde, die im Code erstellt wurden.

Dadurch wird verhindert, dass der Code unnötig Speicherplatz verbraucht, und mögliche Speicherprobleme werden vermieden.


AW: Daten in E-Mail einfügen
15.04.2023 16:10:39
Andi
Vielen Dank


AW: Daten in E-Mail einfügen
15.04.2023 18:08:45
Andi
Hallo,

hab es jetzt schon durchgespielt und bekomme bei der Zeile "Zellenwert = Zelle.Value" folgenden Fehler:

"Laufzeitfehler 13 - Typen unverträglich"

Wo liegt der Fehler?

Vielen Dank

Schöne Grüße


Anzeige
AW: Daten in E-Mail einfügen
15.04.2023 18:17:11
Oberschlumpf
hi,

a) Zellenwert hast du als ZAHL festgelegt; Inhalt von Target.Value ist aber keine Zahl!

b) änder...
Dim Zellenwert As Integer
...um in...
Dim Zellenwert As Variant
...hilfts?

Ciao
Thorsten

313 Forumthreads zu ähnlichen Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Anzeige
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
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 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
1
8
2
14
4
6
11
10
4
6
1
8
9
11
12
2
5
2
4
2
3
4
3
2
1