Guten Morgen,

ich habe folgenden Code:

Sub SuchDieMail()
Dim praeFix As String
Dim suchBereich As Range, fundBereich As Range

praeFix = "Per Email:" '***Schreibweise ggf.anpassen
Set suchBereich = ActiveDocument.Range

    With suchBereich.Find
        .Text = praeFix
        .Execute
    End With

Set fundBereich = ActiveDocument.Range(Start:=suchBereich.End, End:=suchBereich.Paragraphs(1).Range.End - 1)
fundBereich.Copy
End Sub

Wie schaffe ich es, das wenn keine Mail gefunden wird, das die Meldung kommt. Keine Mail gefunden. Ich bedabke mich schon jetzt für die Hilfe

Gruss

Chefe321