Clever-Excel-Forum

Seiten: 1 2

Hi snb,

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

Niko

fehlt vielleicht vorher:

Code:
DIM sn

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

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

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

Danke

Manchmal sehe ich den Wald vor lauter Bäumen nicht

mein letzte Weihnachtsfrage Angel

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 Xmas20

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)

Seiten: 1 2

Niko

LuckyJoe

Niko

Niko

snb

Niko