Hallo Ihr Experten,
also eigentlich hab ich ja von VBA Null-Ahnung, hab’s jetzt aber geschafft, mir ein Makro zusammenzubasteln, das, wenn es betätigt wird, automatisch via Outlook eine Mail verschickt.
so weit so gut
wie mach ich das denn jetzt, dass, wenn die Datei beendet wird, eine MSG-Box aufgeht "möchten Sie eine Info versenden? " und bei „Ja“ automatisch das o.g. Makro gestartet wird??
Vielen Dank für Eure Tips
Grüssle
Suse
PS: und als Nächstes denke ich drüber nach, wie das mit Firefox gehen könnte *träum*
Hallo Ihr Experten,
Hi,
bau dir in „Diese Arbeitsmappe“ folgendes Makro:
Private Sub Workbook\_Open()
dim antw
antw=MsgBox("Wollen Sie diese Mappe versenden?",vbYesNo)
if antw=vbYes then
deinMakro
end if
End Sub
Gruß.Timo
also eigentlich hab ich ja von VBA Null-Ahnung, hab’s jetzt
aber geschafft, mir ein Makro zusammenzubasteln, das, wenn es
betätigt wird, automatisch via Outlook eine Mail verschickt.
so weit so gut
wie mach ich das denn jetzt, dass, wenn die Datei beendet
wird, eine MSG-Box aufgeht "möchten Sie eine Info versenden? "
und bei „Ja“ automatisch das o.g. Makro gestartet wird??
Vielen Dank für Eure Tips
Grüssle
Suse
PS: und als Nächstes denke ich drüber nach, wie das mit
Firefox gehen könnte *träum*
Hi,
Hallo,
also…
bau dir in „Diese Arbeitsmappe“ folgendes Makro:
Private Sub Workbook_Open()
dim antw
antw=MsgBox(„Wollen Sie diese Mappe versenden?“,vbYesNo)
if antw=vbYes then
diese Stelle versteh ich noch nicht ganz…reicht da der Name??
deinMakro
end if
End Sub
Gruß.Timo
na ja…noch klappt’s nicht bei mir…irgendwas mit Syntaxfehler:frowning:
und wo ist da die Stelle, das er das startet, wenn die Datei geschlossen wird??
aber trotzdem lieben Dank für Deine Mühe:smile:)
Grüssle
Suse
also eigentlich hab ich ja von VBA Null-Ahnung, hab’s jetzt
aber geschafft, mir ein Makro zusammenzubasteln, das, wenn es
betätigt wird, automatisch via Outlook eine Mail verschickt.
so weit so gut
wie mach ich das denn jetzt, dass, wenn die Datei beendet
wird, eine MSG-Box aufgeht "möchten Sie eine Info versenden? "
und bei „Ja“ automatisch das o.g. Makro gestartet wird??
Vielen Dank für Eure Tips
Grüssle
Suse
PS: und als Nächstes denke ich drüber nach, wie das mit
Firefox gehen könnte *träum*
Hi,
Hallo,
Hi,
also…
bau dir in „Diese Arbeitsmappe“ folgendes Makro:
Private Sub Workbook_Open()
dim antw
antw=MsgBox(„Wollen Sie diese Mappe versenden?“,vbYesNo)
if antw=vbYes then
diese Stelle versteh ich noch nicht ganz…reicht da der
Name??
Ja
deinMakro
end if
End Sub
Gruß.Timo
na ja…noch klappt’s nicht bei mir…irgendwas mit
Syntaxfehler:frowning:
und wo ist da die Stelle, das er das startet, wenn die Datei
geschlossen wird??
Ups,
musst in der ersten Zeile statt Private Sub Workbook_Open() einfach Workbook_BeforeClose(Cancel As Boolean) schreiben.
Wenn es nicht klappt, schick mir die Excel-Datei einfach per Mail, dann mach ich’s schnell.
Gruß.Timo
aber trotzdem lieben Dank für Deine Mühe:smile:)
Grüssle
Suse
also eigentlich hab ich ja von VBA Null-Ahnung, hab’s jetzt
aber geschafft, mir ein Makro zusammenzubasteln, das, wenn es
betätigt wird, automatisch via Outlook eine Mail verschickt.
so weit so gut
wie mach ich das denn jetzt, dass, wenn die Datei beendet
wird, eine MSG-Box aufgeht "möchten Sie eine Info versenden? "
und bei „Ja“ automatisch das o.g. Makro gestartet wird??
Vielen Dank für Eure Tips
Grüssle
Suse
PS: und als Nächstes denke ich drüber nach, wie das mit
Firefox gehen könnte *träum*
1 „Gefällt mir“
Hi Suse,
wechsle in den Projekt-Explorer (STRG-R), doppelklicke auf die Mappe „DieseArbeitsmappe“. Oben im Codefenster müsste dann im linken Dropdown „Workbook“ aktiv sein, wenn nicht, dann manuell auswählen. Im rechten Dropdown können dann sämtliche Ereignisse des entsprechenden Objektes (hier: „Workbook“) ausgewählt werden. Wählt man z.B. „Open“, dann wird die Prozedur „Private Sub Workbook_Open()“ automatisch erstellt.
Martin
Vielen lieben Dank Timo
hat geklappt:smile:)
erfreuten Gruss
Suse