Supportnet Computer
Planet of Tech

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

Antwort 2 von piano

Hallo Heiko
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 -



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: