Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatische Email Benachrichtigung

Automatische Email Benachrichtigung
Hammermann,
Hallo,
ich habe erneut ein Problem. Ich habe über eine bedingte Formatierung ja die Möglichkeit eine Zelle bei erreichen eines Wertes zu "färben". Z. B. bei negativen Wert in rot. Ist es nun möglich, daß bei einem vorher definierten Wert automatisch eine Email an einen definierten Empfänger zu schicken...
Vielen Dank für eure Hilfe in Voraus.
Mit freundlichen Grüßen
D. Hammermann

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatische Email Benachrichtigung
18.04.2012 09:24:57
Dirk
Hallo!
Ja, das geht, falls Du das Ereignis der Zelle abfangen kannst.
Man koennte z.B folgendermassen vorgehen, falls der Wert in der Zelle aus einer Berechnung stammt:
in das Tabellenblattmodul:
Private Sub Worksheet_Calculate()
If Range("C4").Value > 20 Then   'hier den Grenzwert festlegen oder auf eine Zelle  _
referenzieren, welche den Grenzwert enthaelt.
Call Send_Notice
End If
End Sub
Private Sub Send_Notice()
Dim olapp As Object
'dim RngBereich as range
'set rngbereich = Range("C4")   'Hier die zu kopierende Range festlegen
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.to = Sheets("Mitarbeiter").Range("G1").Value      'hier steht die zu verwendende email- _
adresse; Sheet muss vorhanden sein!
.Subject = "Ein kritischer Wert wurde ueberschritten..."
'.body = rngbereich.PasteSpecial(xlPasteAll)
.Display
.Send   'Sendet E-Mail
End With
Set olapp = Nothing
End Sub

Lass' hoeren, ob ok.
gruss
Dirk aus Dubai
Anzeige
AW: Automatische Email Benachrichtigung
18.04.2012 15:20:54
Hammermann,
Hallo,
ja noch ein wenig angepasst.
Vielen Dank.

24 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige