Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E mail senden mit einem Tabellen Blatt VBA

Forumthread: E mail senden mit einem Tabellen Blatt VBA

E mail senden mit einem Tabellen Blatt VBA
20.09.2024 09:32:56
TomVBW
hi

danke für deine Antwort. Ich habe mit der it abt. gesprochen vba ist bei uns nicht deaktiviert. man Muss nur die
Entwickler Tools aktivieren ...

also bitte helft mir etwas passendes zu finden. jetzt brauche ich sozusagen etwas anderes für Excel und vba Profis sicher lächerliche einfaches. aber bitte erklärt mir die Lösung nicht zu komplex ich hab noch nie mit vba gearbeitet.

ich versuche zu erklären: ich habe eine Excel liste mit vielen Tabellen blättern. in jeden Blatt sind listen in denen man Objekten werte zuordnen kann(Zahlen). die werte all diese Einzelblätter werden in ein einzelnes Tabellen Blatt gefiltert. das funktioniert schon super.

JETZT brauche ich nur noch einen Botton im ersten Tabellen Blatt auf dem dann stehen soll "Bestellung abschicken " nachdem der User in den Tabellen und listen seine werte eingetragen hat, drückt er auf den Button und es sollte das Tabellen Blatt mit den gefilterten werten an meine E-Mail Adresse gesendet werden.

ich hoffe es ist verständlich was ich meine : auf Knopfdruck ein Tabellen Blatt an eine bestimmte E-Mail senden.

danke für eure Hilfe lg tom
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
20.09.2024 10:20:21
volti
Hallo Tom,

hier eine Idee dazu..... 

Code:


Option Explicit

Private Sub CommandButton1_Click()  ' Sub für Button1 ins Blatt des Button
  Dim sDateiname As String, WSh As Worksheet
  
  Set WSh = ActiveSheet  'Sheets(1) 'zu versendendes Blatt
  
  sDateiname = Environ("TEMP") & "\" & WSh.Name & ".xlsx"
' temporäre Datei erstellen
  WSh.Copy                                      ' Blatt kopieren
  With ActiveWorkbook
     .SaveAs sDateiname                         ' Als Datei abspeichern
     .Close                                     ' Datei schließen
  End With

  With CreateObject("Outlook.Application").CreateItem(0)
     .Getinspector.Display                      ' Signatur holen
     .To = "Ich@MeineFirma.de"                  ' Empfänger
     .Cc = ""
     .Subject = "Geänderte Daten vom " & Date & ", " & Time
     .body = "Anbei die Daten" & vbCrLf & .body ' Text mit Signatur
     .Attachments.Add sDateiname                ' Anlage dran
  End With
  
  Kill sDateiname ' temporäre Datei wieder löschen
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
20.09.2024 11:38:15
TomVBW
danke für die schnelle antwort.

da ich mich mit vba nicht auskenne könntest du mir noch in deinem Code markieren wo ich das blatt auswähle welches versendet werden soll ," bei Sheets(1)" statt der 1 die Nummer die ich senden möchte also zb Sheets(12)? oder geht auch der name des blattes zb Sheets(bestellung) ?
oder könntest du mir das in den code eingeben damitt ich sehe wie es gemeint ist. Das zu kopierende tabellen blatt ist nr 12 mit namen Bestellung.
die datei sollte Bestellung mit Datum heißen signatur mus nicht sein. der button text "Bestellung senden".
bei e meil kenne ich mich aus.

danke für deine mühe sorry für die umstände ist leider chinesisch für mich. :-)
Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
20.09.2024 12:05:29
ralf_b
Activesheet sollte ausreichen, denn wenn du auf den Button drückst, der sich auf dem zu versendenden Blatt befindet, dann ist des aktive Blatt ja auch genau das.
sonst schreibst du den Blattnamen in Anführungsstriche Sheets("name") 


Set WSh = ActiveSheet  

  'dateiname mit Datum und Punkt durch Unterstrich ersetzt

  sDateiname = Environ("TEMP") & "\" & WSh.Name & Replace(Date, ".", "_") & ".xlsx"
Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
21.09.2024 12:36:47
Eifeljoi 5
Hallo

Wenn VBA Zitat " leider chinesisch " ist dann probiere es doch ohne VBA, mit deiner Excel Version müsste dies klappen, wenn du OneDrive mit deinem Excel verbunden ist.
Das einzige man muss halt mehrere Klicks machen.
AW: E mail senden mit einem Tabellen Blatt VBA
20.09.2024 12:26:53
volti
Hallo Tom,

wenn Du die Signatur nicht möchtest, lassen wir die weg.

Hier noch mal eine neue Version mit dem Blattnamen "Bestellung". Ralf's Hinweise zu Activesheet sind natürlich auch möglich. 

Code:


Private Sub CommandButton1_Click()  ' Sub für Button1 ins Blatt des Button
  Dim sDateiname As String
  Const csBlatt As String = "Bestellung"        ' <<< ggf. anpassen >>>

  sDateiname = Environ("TEMP") & "\" & csBlatt & "_" _
             & Replace(Date, ".", "_") & ".xlsx"

' temporäre Datei erstellen
  ThisWorkbook.Sheets(csBlatt).Copy             ' Blatt kopieren
  With ActiveWorkbook
     .SaveAs sDateiname                         ' Als Datei abspeichern
     .Close                                     ' Datei schließen
  End With

' eMail kreieren
  With CreateObject("Outlook.Application").CreateItem(0)
     .Getinspector.Display                      ' ggf. Signatur holen
     .To = "Ich@MeineFirma.de"                  ' Empfänger
     .Cc = ""
     .Subject = "Bestellung vom " & Date & ", " & Time
     .body = "Anbei die Daten"                  ' Text
     .Attachments.Add sDateiname                ' Anlage dran
  End With

' temporäre Datei wieder löschen
  Kill sDateiname
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
22.09.2024 10:53:16
TomVBW
hi volti

der Code, wenn ich ihn starte scheint zu funktionieren.
gibt es eine Möglichkeit statt Outlook das am Computer installierte mail Programm anzusprechen ? und mein größtes Problem in Blatt 1 wo der Index aller listen ist und von
wo auch dann nach Auswahl die Bestellung erfolgen soll habe ich Geschäft einen Botton einzufügen er funktioniert nur leider nicht könntest du mir bitte erklären wie ?

@Eifeljoi 5

kannst du mir auch erklären wie ?


Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
22.09.2024 11:16:46
TomVBW
hi nochmal

danke volti, hab nur beim Code das Wort private gelöscht und nach dem speichern konnte
ich dem Button das Makro zuweisen. das ging davor nicht. sorry ich hab keine Ahnung von vba. Ich finde es aber sehr interessant , hab mir ein Einsteiger buch bestellt. melde mich wieder sollte ich fragen haben.

vielen dank erstmal für deine Hilfe würde dir am liebsten ein Bierchen ausgeben.
lg tom
Anzeige
AW: E mail senden mit einem Tabellen Blatt VBA
22.09.2024 14:26:19
Eifeljoi 5
Hallo

Klar , so schwer ist das doch gar nicht.
a) Öffne die entsprechende Datei.
b) Schaue dann unter Datei => Konto => Verbundene Dienste , ob hier dein OneDrive-Persönlich steht.
c) Wenn c ja dann klicke unter Datei => auf Freigeben und wähle das gewünschte aus und folge den weiteren Schritte.
Anzeige

Forumthreads zu verwandten Themen

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
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
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
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
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
Einfügen in neuem Tabellenblatt
Space

Hallo, leider war mein letzter Beitrag schon wieder zu ... hier nocheinmal die Problematik:
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...
19.01.2010 14:59:16
Thread-ID: 1131070
2 Beiträge
Seite als E-Mail versenden
EarnyToLearny

Hallo zusammen,
habe zwei Seiten: eine für die Dateneingabe und eine für die Datenausgabe. Nun soll nach dem drücken
eines Buttons (per Mail versenden)
1. die Seite mit der Datenausgabe an eine feste Mailadresse versandt werden
2. und dabei das erstellte Ausgabeformular mit all...
09.02.2010 09:33:31
Thread-ID: 1136872
4 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
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
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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