Jump to content

Kopieren von Excel Inhalten & Versenden per Email


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo Gemeinde!

 

Folgendes Script habe ich soweit zusammen.

 

Sub Email()
     Dim n As Range
     Dim a As Range
     Set a = ThisWorkbook.Sheets("Tabelle1").Range("A9:P9")
     Empfänger = "Email-Adresse"
     Titel = "Protokoll"
     Set n = Application.InputBox _
        ("Wählen Sie den Bereich aus, den Sie versenden möchten", Type:=8)
     Range("a.Adress" & "n.Address").Select
     Selection.Copy
     Worksheets.Add
     ActiveSheet.Paste
     ActiveWorkbook.SaveAs "Protokoll.xls"
     Application.Dialogs(xlDialogSendMail).Show Empfänger, Titel
End Sub

 

Ich habe somit ein Excel Sheet welches in Zeile 9 die Überschriften enthält. Diese Überschrift soll immer mit in das neue Dokument übernommen werden, unabhängig davon welchen Bereich ich durch das selektieren noch übernehmen möchte. Ohne Überschrift bekomme ich das hin, nur mit bekomme ich immer den Fehler "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

Vielleicht hat ja jemand von euch eine Idee!?

 

Vielen Dank vorab.

Link zu diesem Kommentar

Es geht bestimmt auch noch eleganter, ich habe es jetzt allerdings folgendermaßen gelöst

 

Sub Email()
     Dim n As Range
     Dim a As Range
     Set a = Range("A9:P9")
     Empfänger = "Email Adresse"
     Titel = "Protokoll"
     Set n = Application.InputBox _
        ("Wählen Sie den Bereich aus, den Sie versenden möchten", Type:=8)
     Range(n.Address).Select
     Selection.Copy
     Worksheets.Add
     ActiveSheet.Paste Range("A2")
     a.Copy Range("A1")
     ActiveWorkbook.SaveAs "Protokoll.xls"
     Application.Dialogs(xlDialogSendMail).Show Empfänger, Titel
End Sub

 

Danke

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...