Nach dem senden Tabelle mit bestimmten Änderungen
09.12.2017 16:39:23
Michael
Ich bin absoluter Neuling was VBA angeht.
Ich stelle es mir folgendermaßen vor:
Die vorliegende Datei besteht aus zwei Worksheets. In das erste werden Daten zu Wochentagen eingetragen und im zweiten Sheet zusammengeführt und ausgewertet und mit dem letzten Jahr verglichen.
Meine Idee ist nun nach dem ausführen eines einfachen Senden-Makros, soll die Datei in einem _
neuen Ordner gespeichert werden.
Sub ExcelDateiSenden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "abc@email.com"
.cc = "def@email.com"
.Subject = "Statistik TXL"
.attachments.Add AWS
.Body = "Guten Morgen," & vbCrLf & "angehängt ist die Datei der vergangenen Woche" & vbCrLf & "" _
_
_
& vbCrLf & "Beste Grüße"
.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Die neue Datei soll folgende Voraussetzungen erfüllen. Sheet 1 eins zu eins kopieren, den Inhalt bestimmter Zellen leeren und das Datum +1 Jahr setzen.
Beim zweiten Sheet wird es komplizierter. Erstmal wie Sheet 1, aber nun soll der Inhalt aus vier Zellen in vier andere eingetragen werden. In vielen Zellen befinden sich Formeln, die unbedingt so bleiben müssen.
Und das ist wohl am einfachsten zu machen, in einer Zelle aus 2018 2019 machen.
Wenn das zuviel ist, dann sagt mir was machbar wäre. Ich kann die Datei auch gern zu Ansicht zur Verfügung stellen.
Vielen Dank im Voraus
Micha