- Erstellen Sie eine neue Arbeitsmappe mit der Auswahl.
- Speichern Sie die Arbeitsmappe, bevor Sie sie per Post versenden.
- Löschen Sie die Datei nach dem Senden von Ihrer Festplatte.
Es blendet ausgeblendete Zeilen und Spalten in der Auswahl ein
Alle leeren Zellen außerhalb der Auswahl werden ausgeblendet (siehe Screenshot)
Auf diese Weise ist die Auswahl immer oben auf Ihrem Blatt
Sub Mail_Selection() Dim strDate As String Dim Addr As String Dim rng As Range Wenn ActiveWindow.SelectedSheets.Count > 1 Oder Selection.Areas.Count > 1 Dann Beenden Sie Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Pictures.Delete With Cells .EntireColumn.Hidden = False .EntireRow.Hidden = False End With Range(Addr).Select Set rng = Selection Application.GoTo rng, True With rng.EntireColumn .Hidden = True rng(1).EntireRow. SpecialCells(xlVisible).EntireColumn.Clear rng(1).EntireRow.SpecialCells(xlVisible).EntireColumn.Hidden = True .Hidden = False End With rng.EntireRow .Hidden = True rng(1).EntireColumn.SpecialCells(xlVisible)(xl .EntireRow.Clear rng(1).EntireColumn.SpecialCells(xlVisible).EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells(1).Select strDate = Format(Date, "dd- mm-jj") & " " & Format(Zeit, "h-mm-ss") ActiveWorkbook.SaveAs "Teil von " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendM ail "[email protected]", _ "Dies ist die Betreffzeile" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub