Supportnet / Forum / Tabellenkalkulation
Arbeitsblätter versenden/speichern
Frage
Hallo,
ich möchte aus einer Excel Arbeitsmappe einzelne Arbeitsblätter auf Diskette speichern und als Email versenden. Leider wird die komlette Arbeitsmappe gespeichert bzw. verschickt.
Gibt es eine Möglichkeit die Arbeitsblätter zu verschicken / speichern ohne den aufwendigen Weg das Arbeitsblatt zu kopieren und in einer neuen Mappe einzufügen? Vielen Dank für Eure Hilfe
Heiko
Antwort 1 von Reindy
Hi, mein Vorschlag:
Speichere deine Arbeitsmappe (kopie)
lösche dann die Arbeitsblätter.
Das geht schneller
Reinhard
Speichere deine Arbeitsmappe (kopie)
lösche dann die Arbeitsblätter.
Das geht schneller
Reinhard
Antwort 2 von piano
Hallo Heiko
VBA-Code in etwa so:
- wo in A1 das Thema steht und als Parameter der Empfänger mitgegeben wird.
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
VBA-Code in etwa so:
Function AktiveTabelleAlsEMailVersenden(Empfänger )
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:=Range("A1").Value
ActiveWorkbook.Close savechanges:=False
End Function
- wo in A1 das Thema steht und als Parameter der Empfänger mitgegeben wird.
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -