Wie sendet man eine E-Mail, sobald sich eine bestimmte Zelle in Excel ändert?
Dieser Artikel erklärt, wie eine E-Mail über Outlook versendet wird, sobald eine Zelle innerhalb eines bestimmten Bereichs 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 aktuellen Arbeitsmappe als Anhang erstellen möchten, sobald eine Zelle im Bereich A2:E11 eines bestimmten Arbeitsblatts geändert wird, hilft Ihnen der folgende VBA-Code.
1. Klicken Sie in dem Arbeitsblatt, für das eine E-Mail gesendet werden soll, sobald sich eine Zelle innerhalb eines bestimmten Bereichs ändert, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
2. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Codefenster ein.
VBA-Code: E-Mail senden, wenn eine Zelle in einem Begrenzter 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 SubHinweise:
3. Drücken Sie gleichzeitig die Tasten Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort wird bei jeder Änderung einer Zelle im Bereich A2:E11 automatisch eine neue E-Mail mit der aktualisierten Arbeitsmappe als Anhang erstellt. Alle angegebenen Felder – Betreff, Empfänger und E-Mail-Text – werden in der Nachricht verwendet. 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 Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie sendet man eine E-Mail automatisch anhand eines Zellenwerts in Excel?
- Wie sendet man eine E-Mail über Outlook, sobald die Arbeitsmappe in Excel gespeichert wurde?
- Wie sendet man eine E-Mail, sobald eine Schaltfläche in Excel angeklickt wird?
- Wie sendet man eine E-Mail, sobald das Fälligkeitsdatum in Excel erreicht ist?
- Wie sendet man eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe in Excel aktualisiert wurde?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins