EXCEL VBA: Tabelle Filtern und automatisch via Mail versenden

[cr4zyiv4n]

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]

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

 

[Scientist]

E-Mail via Outlook versenden

Um einen Eintrag in einem Bereich zu finden: Range.find()
Beispiel:

Dim Treffer as Range

Set Treffer = Tabelle1.Range("A1:I200").Find(what:="Max", LookIn:=xlValues)

If not Treffer is nothing then

    Mail.send

End If