Office: einzelne Blätter als Excel-Tabelle versenden

Hallo, ich möchte aus meiner Arbeitsmappe nur einzelne Blätter versenden. Diese sollen aber beim Empfänger als Excel-Tabelle ankommen und nicht als Text. Weiß jemand Rat?

Vielen Dank

 

Hallo!

Mir fällt nur ein Makro ein, welches das gewünschte Blatt in eine neue Mappe kopiert, in diesem Fall das Blatt mit dem Namen "Tabelle1".

Code:

Sub BlattKopieren()
Dim i As Integer
Dim Mappe As Workbook
Dim Blatt As Worksheet
Set Blatt = ThisWorkbook.Sheets("Tabelle1")
Set Mappe = Workbooks.Add
Blatt.Copy Before:=Mappe.Sheets(1)
Application.DisplayAlerts = False
For i = 2 To Mappe.Worksheets.Count
Mappe.Sheets(2).Delete
Next i
Application.DisplayAlerts = True
End Sub

Die neue Mappe kannst du dann speichern und verschicken.
Hilft dir das weiter?

 

Danke für die schnelle Anwort. Ich wollte die Datei aber ohne Kopieren versenden. Vielleicht gibt es da ja noch eine andere Möglichkeit.

 

Hallo!

Hab' gerade diesen Link gefunden.
Das ist eindeutig besser als mein stümperhafter Versuch...