Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Tabellenblätter an unterschiedliche Mail-Adressen versenden
 17.05.2016 17:03:49 Carsten
NotSolved

Ansicht des Beitrags:
Von:
Carsten		 Datum:
17.05.2016 17:03:49		 Views:
1625		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Tabellenblätter an unterschiedliche Mail-Adressen versenden

Hallo zusammen,

ich möchte mehrere Tabellenblätter an unterschiedliche Mail-Adressen versenden. Ich bin absoluter VBA-Neuling, habe auf einer Website einen entsprechenden Code gefunden, komme damit aber nicht weiter. Auf der Website ist vermerkt, dass man lediglich das Makro "lop" (bei mir heißt es "neu") starten soll, dann würde alles funktionieren. Bei mir kommt allerdings der Laufzeitfehler 1004.

Ist es zudem möglich, noch einen E-Mail-Text vorzugeben, der durch die Standard-Signatur in Outlook ergänzt wird?

Könnt ihr mir bitte helfen? Vielen Dank vorab!

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Blattversand()
' Fehlermeldungen werden ausgeschaltet. Dateien werden gespeichert, auch wenn schon eine mit
' diesem Namen existiert. Vorherige Datei wird überschrieben.
Application.DisplayAlerts = False
    Application.Volatile
' Blattname wird ausgelesen
    Blattname = ActiveSheet.Name
    BlattName2 = Blattname & ".xlsx"
' Pfadname zum Zwischenspeichern wird vorgegeben
pfadname = "C:\Users\gccai\EIGENE DATEIEN\GCCAI\Arzt Apothekenabverkaufsdaten Temp\" & Blattname & ".xlsx"
' neue Arbeitsmappe anlegen mit dem Blattnamen zwischenspeichern
    Set neuemappe = Workbooks.Add
    With neuemappe
        .SaveAs Filename:=pfadname
    End With
' zur =Originalmappe wechseln und die Meldung in die neu erzeugte Mappe kopieren, vor Tabelle 1
    ThisWorkbook.Activate
    Sheets(Blattname).Copy Before:=Workbooks(BlattName2).Sheets(1)
' Leertabellen löschen
    tabzahl = Sheets.Count
    stammwert = 1
    For tz = stammwert To tabzahl
            If tabzahl = stammwert Then Exit For
                If tz = tabzahl Then Exit For
                tabname = "Tabelle" & tz
                Sheets(Array(tabname)).Select
                ActiveWindow.SelectedSheets.Delete
    Next
' Datei mailen
mailadresse = Range("F1")
    ActiveWorkbook.SendMail Recipients:=mailadresse, Subject:=Blattname
' es wäre schön, wenn in einer Zelle jedes Blattes die Mailadresse stehen könnte (z.B. F1)
' Die erzeugte Arbeitsmappe nach dem Versand per Mail schliessen und anschließend aus dem Verzeichnis löschen
    ActiveWindow.Close
    On Error Resume Next
    Kill (pfadname)
End Sub
 
Sub Neu()
' loopFunktion wählt nacheinander jedes Blatt in der Datei aus und startet dann
' obriges Makro zum Mailen
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        Sh.Activate
Call Blattversand
    Next Sh
End Sub

 

Beste Grüße

Carsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Tabellenblätter an unterschiedliche Mail-Adressen versenden
 17.05.2016 17:03:49 Carsten
NotSolved