Sorry - klar das ohne jeglichen code eine Hilfe etwas schwer fällt

Ich habe es inzwischen hinbekommen

indem ich die gefilterten E-Mails in eine neue spalte kopiere und von dort sende - eigentlich ganz einfach - mit der richtigen Menge Kaffee am frühen Morgen :)

             'Gefilterte Daten nicht Senden, Ziel = W

   Dim lRow As Long
   Dim Ze As Long 'Zeile

ThisWorkbook.Worksheets("Email").Range("W10:W100").ClearContents
   lRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("M10:M100").SpecialCells(xlCellTypeVisible).Copy _
         Destination:=Range("W10")
   If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

            '/Gefilterte Daten nicht Senden, Ziel = W

Schönen Sonntag noch