habe aus der Recherche so einiges ausprobiert, leider aber noch nicht das richtige Ergebnis erzielt.
1. Ich erstelle ein neues Workbook (Workbooks.Add)
2. Diesem Workbook möchte ich einen anderen Namen geben (ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & sName & sMonat & ".xls"
3. Das Workbook mit dem neuen Namen möchte ich versenden (ActiveWorkbook.SendMail)
4. Die erstellen Workbooks, neu und geändert, sollen aber gelöscht bzw. nicht gespeichert werden.
Was muß ich im folgenden Code ändern um dieses alles zu erreichen?
Workbooks.add
rng1.Copy
Range("A1").PasteSpecial (xlPasteValues)
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & sName & sMonat & ".xls"
ActiveWorkbook.SendMail sAddress, "Monatsdaten für Monat " & sMonat
ActiveWorkbook.Close savechanges:=False
Danke für die Bemühungen.
Gruß
Wolfgang