title image


Smiley Re: Arbeitsblatt mailen?
Hi Andernah,



mit diesem Makro kannst du einen Bereich im Tabellenblatt markieren und dieser wird dann in Werte umgewandelt als Anhang an ein neues Mail gehängt. Probiers mal aus:





Sub BereichAlsMail()

' Ausgewählter Bereich kann als E-Mail Anhang verschickt werden

Dim AktWBook As String

Dim AktNeuWB As String

Dim Titel As String

Dim Bereich As Object

Dim BerNeu As Object

Dim i As Integer



  On Error Resume Next

  

  AktWBook = ActiveWorkbook.Name

  Titel = "Ausschnitt aus der Datei " & AktWBook

  

  'Auswahl des Bereichs

  

  Set Bereich = Application.InputBox("Markieren Sie" & " den gewuenschten Bereich:", Type:=8)

  If Bereich Is Nothing Then Exit Sub

  

  Application.ScreenUpdating = False

  

  Workbooks.Add

  AktNeuWB = ActiveWorkbook.Name

  

  Set BerNeu = ActiveWorkbook.ActiveSheet.Range(Cells(1, 1), Cells(Bereich.Rows.Count, Bereich.Columns.Count))

   

  'Werte übertragen

  Windows(AktWBook).Activate

  Bereich.Copy

  Windows(AktNeuWB).Activate

  BerNeu.PasteSpecial Paste:=xlPasteValues

  

  'Formate übertragen

  Windows(AktWBook).Activate

  Bereich.Copy

  Windows(AktNeuWB).Activate

  BerNeu.PasteSpecial Paste:=xlPasteFormats



  'Komentare übertragen

  Windows(AktWBook).Activate

  Bereich.Copy

  Windows(AktNeuWB).Activate

  BerNeu.PasteSpecial Paste:=xlpastenotes



  'Zeilehöhe und Spaltenbreite übertragen

  For i = 1 To Bereich.Rows.Count

        BerNeu.Rows(i).RowHeight = Bereich.Rows(i).RowHeight

    Next i

    For i = 1 To Bereich.Columns.Count

        BerNeu.Columns(i).ColumnWidth = Bereich.Columns(i).ColumnWidth

    Next i

  

  Application.Dialogs(xlDialogSendMail).Show , Titel, 1

  

  Application.DisplayAlerts = False

  ActiveWorkbook.Close

  Application.DisplayAlerts = True

  

  Application.ScreenUpdating = True



End Sub







Code eingefügt mit Syntaxhighlighter 2.5





CU Klaus

Viele Grüsse

aus dem sonnigen

Markgräflerland!!!

Wissen ist Macht, aber Nix wissen macht auch Nichts!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: