pfeffis 11 Geschrieben 2. Januar 2012 Melden Geschrieben 2. Januar 2012 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.
pfeffis 11 Geschrieben 2. Januar 2012 Autor Melden Geschrieben 2. Januar 2012 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
Empfohlene Beiträge
Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren
Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können
Benutzerkonto erstellen
Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!
Neues Benutzerkonto erstellenAnmelden
Du hast bereits ein Benutzerkonto? Melde dich hier an.
Jetzt anmelden