Mit Excel 2010 funktionierts nicht, mit Excel 2016 funktionierts...wo ist den fehler?

[Niko]

Hi snb,

danke für dein Vorschlag, doch es funktioniert nicht.
Es Stopt bei der sn zeile.


Niko

[LuckyJoe]

fehlt vielleicht vorher:

Code:

DIM sn

[Niko]

Hi,

es zeigt ein fehler

Code:

Sub M_snb()
ActiveWorkbook.ActiveSheet.Unprotect ("s0nne")
Dim sn

   With ThisWorkbook.Sheets("DPV1")
      sn = Array(.Range("A3"), Format(.Range("B1"), "m_yyyy"), Application.TemplatesPath & "neu.xlsb")
      .Copy
    End With
    
    With ActiveWorkbook
       .Sheets("DPV1").UsedRange.Value = .Sheets("DPV1").UsedRange.Value
       .SaveAs sn(2), 50
       .Close
    End With
   
   With CreateObject.CreateItem(0) 'HIER STOP DER CODE....
       .To = "My.Kollegen@mail.de"
       .Subject = "Dienstplan - Gruppe: " & sn(0) & " - Monat: " & sn(1) & " - " & Now
       .Attachments.Add sn(2)
       .Body = "Öffnen auf eigenem Gefahr"
       .Display
       ActiveWorkbook.ActiveSheet.Protect ("s0nne")
   End With
End Sub

Danke,
Niko

[Niko]

Code:

With CreateObject.CreateItem(0) 'HIER STOP DER CODE....

[snb]

Code:

Sub M_snb()
   With ThisWorkbook.Sheets("DPV1")
      sn = Array(.Range("A3"), Format(.Range("B1"), "m_yyyy"), Application.TemplatesPath & "neu.xlsb")
      .Copy
    End With
    
    With ActiveWorkbook
       .Sheets(1).UsedRange.value = .Sheets(1).UsedRange.Value
       .SaveAs sn(2), 50
       .Close
    End With
   
   With CreateObject("Outlook.Application").CreateItem(0)
       .To = "My.Kollegen@mail.de"
       .Subject = "Dienstplan - Gruppe: " & sn(0) & " - Monat: " & sn(1) & " - " & now
       .Attachments.Add sn(2)
       .Body = "Öffnen auf eigenem Gefahr"
       .Send
   End With
End Sub

[Niko]

Danke

Manchmal sehe ich den Wald vor lauter Bäumen nicht 

mein letzte Weihnachtsfrage 

Wie kann ich die Zellen begrenzen die ich in den kopierten Blatt in der Mail einfügen möchte?

Bsp.: Möchte von diesen Blatt nur die Zellen von A1:H60 kopiert haben in das gesendete Blatt.


Danke & ein schönes Weihnachtsfest wünsche ich 

Als ich vierzehn war, war mein Vater so unwissend. Ich konnte den alten Mann kaum in meiner Nähe ertragen. 
Aber mit einundzwanzig war ich verblüfft, wie viel er in sieben Jahren dazugelernt hatte. (Mark Twain)