Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Heuer vom 11.09.2020, 22:15 Options
wie kann ich aus exel beim erreichen eines Wertes einer Zelle (Wenn A1>20)eine E-mail senden
Ich möchte das beim Erreichen eines Wertes z.B. wenn A1<20 eine E-mail vesendet wird.
Ich habe diesen Code verwendet, der auch funzt:
Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = "ich@du.de"
Mail.cc = ""
Mail.bcc = ""
Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über das....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail versandt."
Mail.Display
Application.SendKeys "%s"
End Sub
Im Klassenmodul steht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") < 25 Then Send_Excel_Message
End Sub
Ändere ich den Wert in A1 <20 passiert nichts.
Was is da falsch
Ich habe diesen Code verwendet, der auch funzt:
Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = "ich@du.de"
Mail.cc = ""
Mail.bcc = ""
Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über das....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail versandt."
Mail.Display
Application.SendKeys "%s"
End Sub
Im Klassenmodul steht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") < 25 Then Send_Excel_Message
End Sub
Ändere ich den Wert in A1 <20 passiert nichts.
Was is da falsch
Antwort 1 von anaxagoras vom 12.09.2020, 16:59 Options
Hallo ,
ich kenn mich ja nicht wirklich aus in VBA, was mir auffällt ist daß du im Klassenmodul >25 stehen hast, nicht >20.
Gruß anax
ich kenn mich ja nicht wirklich aus in VBA, was mir auffällt ist daß du im Klassenmodul >25 stehen hast, nicht >20.
Gruß anax
Antwort 2 von Arno_Nym vom 12.09.2020, 17:53 Options
Ich habs jetzt nicht genau angeschaut, aber du versuchst "Send_Excel_Message" aufzurufen, jedoch dein Sub heißt "Email"?
Arno
Arno
Antwort 3 von Arno_Nym vom 12.09.2020, 17:56 Options
Weiterhin komisch... Wieso steht dein Worksheet_Change-Ereignis in einem Klassenmodul? Das gehört IMHO in "Microsoft Excel Objekte - TabelleX".
Arno
Arno
Ähnliche Themen
exel: aktive zelle auf A3, Spalte A und Zeile 3 sollen...
antiher000 13.07.2007 - 59 Hits - 7 Antworten
Ein Exel-Datenblatt per Mail verscicken
Jammer 20.11.2007 - 58 Hits - 5 Antworten
Datum in Zelle prüfen, einen Monat vor erreichen des Datums das Datum rot formatieren
terzzze 26.11.2007 - 130 Hits - 4 Antworten
Excel, suche nach Wert in einer Zelle und Kopieren des Wertes der 24.Zeile darunter
mistermo 06.12.2007 - 102 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
