EXCEL VBA: Tabelle Filtern und automatisch via Mail versenden

Dabei seit
Nov. 2007
Beiträge
3.440
#1
Servus

Ich bräuchte hilfe bei einem Makro für Excel

Dabei geht es um eine Datenbank die ich filtern möchte und anschließend den gesamten, gefilterten Inhalt an eine bestimmte Mail adresse versenden (via textfeld im outlook .. NICHT als Anhang)

Markos für Mail Versand aus Excel heraus habe ich, diese funktionieren auch, aber ich bekomme es nicht verknüpft mit einer vorrangegangen Filter funktion.

Die Datenbank hat in Spalte A - I verschiedenen Titel stehen. In I steht jeweils die Email adresse des Empfängers: Daher soll das Makro in Spalte I nach "xxxx" filtern und anschließens das gesamte Ergebnis (A- I) markieren und versenden ... im Idealfall direkt an den Empfänger aus Spalte I

Kann mir einer dabei helfen?
 

rocketworm

Lt. Junior Grade
Dabei seit
Mai 2017
Beiträge
388
#2
Hier einmal ein Beispiel wie Du nach der Zeile suchen und diese markieren könntest. Davon solltest Du Dir alles ableiten können. Zum Mailen hast du ja schon was.

Sub suchen()

zeile = 1
wb = ThisWorkbook.Name
blatt = "meinedatei.xlsm"
suchtext = "xxxx"

Do Until Workbooks(wb).Sheets(blatt).Range("A" & zeile).Value = ""
If Workbooks(wb).Sheets(blatt).Range("A" & zeile).Value = suchtext Then
Workbooks(wb).Sheets(blatt).Range("A" & zeile & ":I" & zeile).Select
Exit Do
End If
zeile = zeile + 1
Loop

'hier Mailfunktion einbauen...

End Sub
 
Top