Wie sendet man eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?

Dieser Artikel beschreibt das Senden einer E-Mail über Outlook, wenn eine Zelle in einem bestimmten Bereich in Excel geändert wird.

E-Mail senden, wenn eine Zelle in einem bestimmten Bereich mit VBA-Code geändert wird

E-Mail senden, wenn eine Zelle in einem bestimmten Bereich mit VBA-Code geändert wird

Wenn Sie automatisch eine neue E-Mail mit der aktiven Arbeitsmappe als Anhang erstellen möchten, sobald eine Zelle im Bereich A2:E11 in einem bestimmten Arbeitsblatt geändert wird, kann Ihnen der folgende VBA-Code helfen.

1. Klicken Sie in dem Arbeitsblatt, in dem Sie basierend auf einer geänderten Zelle in einem bestimmten Bereich eine E-Mail senden möchten, mit der rechten Maustaste auf die Registerkarte des Blatts und klicken Sie dann im Kontextmenü auf Code anzeigen. Siehe Screenshot:

2. Kopieren Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications den unten stehenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: E-Mail senden, wenn eine Zelle in einem angegebenen Bereich in Excel geändert wird

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Hinweise:

3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Ab jetzt wird jedes Mal, wenn eine Zelle im Bereich A2:E11 geändert wird, eine neue E-Mail mit der aktualisierten Arbeitsmappe als Anhang erstellt. Alle angegebenen Felder wie Betreff, Empfänger und E-Mail-Text werden in der E-Mail aufgeführt. Bitte senden Sie die E-Mail.

Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Verwandte Artikel:

• Wie sendet man automatisch eine E-Mail basierend auf einem Zellenwert in Excel?
• Wie sendet man eine E-Mail über Outlook, wenn eine Arbeitsmappe in Excel gespeichert wird?
• Wie sendet man eine E-Mail, wenn ein Button in Excel geklickt wird?
• Wie sendet man eine E-Mail, wenn ein Fälligkeitsdatum in Excel erreicht wurde?
• Wie sendet man eine E-Mail-Erinnerung oder Benachrichtigung, wenn eine Arbeitsmappe in Excel aktualisiert wird?