---

Hallo,
ich habe leider noch nicht viel Erfahrungen mit Excel/Makro, und hoffe auf diesem Wege Hilfe für die Lösung meines Problem's zu finden.
Ich hab mehrere Zellen, die per Formel mit Inhalt gefüllt werden.
Bei bestimmtem Inhalten soll eine Mail versendet werden.
Was muss im VB-Editor eingetragen werden, damit auf das Ereignis reagiert wird?
Danke.
ottto

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ottto,
was genau willst Du denn versenden?
Ich habe hier im Angebot, daß die ganze Mappe versendet wird, sobald in der Tabelle1, Zelle A1 ein von Dir definierter String-Wert steht:

Code:

---

Option Explicit
Public Sub MailSenden()
On Error GoTo ERROR_HANDLER
Dim strEreignis As String

strEreignis = "Hier Angabe machen"
    If Tabelle1.Cells(1, 1).Value = strEreignis Then
        ActiveWorkbook.SendMail Recipients:="Ziel@Addresse.de", Subject:="Dein Betreff"  'Addresse und Betreff anpassen!
        'MsgBox "Ihre Datei wurde versendet."
    End If
ERROR_HANDLER:        'MsgBox "Bei der Übertragung sind Fehler aufgetreten. Ihre Datei wurde nicht versendet. Bitte prüfen Sie Ihr e-mail-Programm."
End Sub

---

Ich hoffe, das hilft schon einen Schritt weiter.
Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
----------------
Erfinnder-Gilden-Lehrling Stufe: 5

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmmgrmbl. Nicole war mal wieder schneller
Naja, ich hätte eh nur "Application.Dialogs(xlDialogSendMail).Show" anzubieten gehabt:-(
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Frederik: Tja, Dein Pech daß ich Süchtling bin 

Habe mir grade ein Zichtchen gegönnt und dabei ins Forum geschaut.
Dann diese Frage gelesen und gedacht: Hey, genau das hast Du Dir doch bei Deinem letzten Projekt mühsam erkämpft 
Also reines Copy&Paste 
Aber mit Dialog ist doch auch schön! Vielleicht sogar erwünscht in diesem Fall?
Ottto wird sich äußern 
Schönen Abend noch!
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
----------------
Erfinnder-Gilden-Lehrling Stufe: 5

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo und vielen Dank für die schnellen Antworten.
Ich hab den Code in "Diese Arbeitsmappe" eingefügt. Wenn ich dort "Sub/UserForm ausführen" funktioniert die Geschichte.
Die Datei wird an die entprechende Adresse versendet.
Ich bekomme aber keine Reaktion, wenn ich den String in die Entsprechende Zeile "nur" eintrage. Ich glaube, ich brauche noch einen Auslöser, damit der Code abgearbeitet wird.
Danke.
ottto

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das kannst Du über einen button machen:

Code:

---

Private Sub CommandButton1_Click()
Call MailSenden
End Sub

---

oder über Ereignisse im Worksheet: z.B.

Code:

---

Private Sub Worksheet_Calculate()
Call MailSenden
End Sub

---

oder Du weist Deinem Makro eine Tastenkombination zu,
oder Du löst es manuell über Alt+F8 aus...oder oder oder.
Sei kreativ!
Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
----------------
Erfinnder-Gilden-Lehrling Stufe: 5

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nicole, 

vielen Dank für die Info.
Ich tue mich mit dem VBA noch ziemlich schwer.
Die Datei wird von mehreren Usern genutzt. Ich muss sicherstellen, dass der Code abgefragt wird, wenn Änderungen an der Datei gemacht werden. Kann man eine Reaktion auslösen wenn in ein anderes Feld gesprungen, oder die Datei gespeichert wird?

Unabhängig davon hab ich noch eine Frage.
Was ist zu tun, damit eine Form gleich beim Öffnen einer Excelmappe aufgerufen wird?

Vielen Dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Klar,
blende Dir den VBA-Projekt-Explorer ein und doppelKlick auf "Diese Arbeitsmappe". Auf der rechten Seite oben dann mal "Workbook" einstellen, rechts daneben "open" und er erstellt Dir das Gerüst für die Auto_Open-Anweisung. Da rein den Code, der beim öffnen ausgeführt werden soll.

Code:

---

Private Sub Workbook_Open()
'Tu irgendwas
End Sub

---

das zweite was Du willst, geht genauso, nur nicht Diese Arbeitsmappe, sondern das Blatt anklicken, in dem was passieren soll, dann auf "Worksheet" und "Selection_Change".

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Jetzt mach was anderes
End Sub

---

Das Target solltest Du einschränken auf den Bereich, der relevant ist, sonst rödelt excel bei jedem Klick das Makro durch.

Zu dem Ganzen solltest Du unbedingt auch mal in der Hilfe forschen.
Gruß,
Nicole

[edit] na da war was durcheinander[/edit]
------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
----------------
Erfinnder-Gilden-Lehrling Stufe: 5

[Diese Nachricht wurde von runkelruebe am 20. Okt. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ottto,

zu Deinem zweiten Punkt - meinst Du sowas?

[Edit 2: Mist - da hat´s echt was verworfen. Steht aber im vorherigen Beitrag anschaulich drin. /Edit 2]

Zitat:

---

Kann man eine Reaktion auslösen wenn in ein anderes Feld gesprungen, oder die Datei gespeichert wird?

---

Ja. Beides ist sicherlich möglich. Die Frage ist: Wie und was möchtest Du prüfen? Wenn in ein anderes Feld gesprungen wird, verlässt Du ja das eine - und das andere wird aktiviert. Auch das Speichern kannst Du abfragen, z.B.

Code:

---

If ActiveWorkbook.Saved = True Then
        MsgBox "Bereits gesichert", vbInformation + vbOKOnly, "Hinweis"
        Else: Application.Dialogs(xlDialogSaveAs).Show
    End If

---

HTH,
Frederik
[Edit 1 Nicole -wie immer- auf der Überholspur  /Edit 1]

[Diese Nachricht wurde von Paulchen am 20. Okt. 2006 editiert.]

[Diese Nachricht wurde von Paulchen am 20. Okt. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Prima, sieht schon richtig gut aus. 
Vielen Dank.
Eine Geschichte hab ich noch. Bevor die Mail gesendet wird, kommt ein Outlookfenster hoch. "Eine Anwendung versucht automatisch in ihrem Auftrag zu senden. " Und wartet auf eine Eingabe. 
Ist natürlich schlecht, wenn ein User an der Stelle die Routine unterbrechen kann.
Ich denke das geht nur auf der Outlookseite zu lösen, gibt vielleicht einen RegKey oder ähnliches. Ich werd mich mal schlau machen.
Schönes WE!!
Ottto

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schön, wenn´s klappt!

Diese Sache mit "Eine Anwendung versucht..." könnte auch was mit
-Benutzerrechten oder
-Firewall
zu tun haben?!
Ebenfalls ein erholsames Wochenende!
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin zusammen!

@Paulchen: Nein, dies hat nichts mit Firewall etc zu tun und lässt sich auch nicht ausschalten. Wäre doch etwas ganz Feines, wenn so einfach Spammails im großen Maße von einem Rechner verschickt werden könnten. Der Anwender muss immer sein OK zum Versandt der Mail geben.

Grüße, Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ole,

Zitat:

---

Der Anwender muss immer sein OK zum Versandt der Mail geben.

---

das kann ich so nicht stehen lassen: mein mail-Proggi (kein Outlook) will da nämlich (leider) keine Bestätigung haben und schickt munter drauflos

Dadurch hab mir selber beim Testen meines ersten Makros reichlich mails geschickt 

------------------
Gruß,
Nicole                          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gut, dann ziehe ich teilweise meine Aussage zurück und behaupte, dass zumindest der Ausguck vom Billy das so handhabt.

Grüße Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Auch Hallo,

Das Outlook Sicherheitsupdate - siehe - http://www.outlook-net.de/olsecup.htm  läßt sich auch überlisten bzw. abschalten.

http://www.office-loesung.de/ftopic37826_0_0_asc.php

http://www.dimastr.com/redemption/

http://www.contextmagic.com/express-clickyes/

Alternativ hierzu könnte man einfach ein anderes Mail-Program benutzen oder auch ein anderes Verfahren. Deren gibt es viele.

cu, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OK, dann habe ich durch gefährliches Hlabwissen geglänzt. Habe die Links nicht probiert, aber ich glaube Euch einfach!

Grüße, Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP