Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

gefilterten Bereich per E-Mail versenden

Betrifft: gefilterten Bereich per E-Mail versenden von: BuStü
Geschrieben am: 18.08.2008 11:15:53

Hallo Leute, habe hier schon im Archiv gesucht, aber zu meinem Probelm Nichts gefunden.
Ich möchte ein Tabellenbaltt nach Datum filtern und den gefilterten Bereich mit anderen Spaltenüberschriften per E-Mail versenden, mit dem Makrorecoder habe ich es nicht geschaft. Auch ein zusammenfügen von folgendem Code brachte mir kein Erfolg. Kennt einer eine Lösung hierfür.

Sub GEFILTERT Daten versenden()

    Dim OutApp As Object, Mail As Object, i
    Dim Nachricht

' nachfolgend den gewünschten Tabellenbereich einstellen
   Selection.CurrentRegion.Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    Range("A1").Select
    Columns("B:B").EntireColumn.AutoFit
    ActiveWindow.SmallScroll ToRight:=0
    Columns("B:B").Select
    Selection.Columns.AutoFit
    ActiveWindow.ScrollColumn = 1
    Selection.ColumnWidth = 35
    Columns("D:K").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Ihr EK" & Chr(10) & ""
    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = xlAutomatic
    End With
    ActiveWindow.SmallScroll ToRight:=-1
    Range("B2").Select
    Columns("B:B").ColumnWidth = 58
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("D6").Select
    Columns("B:B").ColumnWidth = 86.29
    Columns("B:B").ColumnWidth = 100.43
    Cells.Select
    Selection.Copy
    Application.CutCopyMode = False
    Range("B4").Select
    ActiveWindow.SmallScroll Down:=-24
    Selection.Copy
       
' Öffnen der Mail
        Set OutApp = CreateObject("Outlook.Application")
        Set Nachricht = OutApp.CreateItem(0)
        With Nachricht
            .Subject = "Betrefftext"
            .To = "Email@dresse.de"
            .Display
        End With
        Set OutApp = Nothing
        Set Nachricht = Nothing

'Kurz warten, damit die Mail Zeit zum Öffnen hat
        Application.Wait (Now + TimeValue("0:00:05"))

' Dann die Zwischenablage einfügen
         Application.SendKeys ("^v") ' Strg-V Anweisung funktioniert nicht
' die Hilfstabelle soll wieder gelöscht werden

End Sub
     Code eingefügt mit Syntaxhighlighter 1.14



Mit freundlichen Grüßen
Burghard

 

Beiträge aus den Excel-Beispielen zum Thema "gefilterten Bereich per E-Mail versenden"