Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox - Mit OK ein Modul aktivieren

MsgBox - Mit OK ein Modul aktivieren
27.02.2007 17:50:35
René
Hallo Gemeinde,
also wie erklaere ich es...
Wenn ich meine Excel-Datei schliesse, folgt eine Meldung ueber msgbox:
MsgBox "Achtung! Mit 'OK' wird versucht, diese Datei als E-Mail zu versenden. Wenn Sie dies nicht wuenschen, brechen Sie den Vorgang bitte jetzt ab.", vbOKCancel, "Wichtiger Hinweis für Benutzer"
Was mich jetzt interessiert, wie bekomme ich es hin, dass wenn der Anwender auf OK klickt, sich auch dieses Modul angesprochen fuehlt. Das Modul, also der Makroname, lautet Versenden.
Vielen Dank!
MfG
René

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox - Mit OK ein Modul aktivieren
27.02.2007 20:53:47
Ramses
Hallo

Sub Test()
Dim Qe as Integer
QE = msgbox("Achtung. Mit ""OK"" wird die Mappe _
versandt",vbQuestion+vbokCancel,"Sicherheitsabfrage")If Qe = vbyes then
Dein_Makro_Name_Zum_Senden
End If
End Sub

Gruss Rainer
An Hans W. Herber: Fehler in der Codedarstellung
27.02.2007 21:21:00
Ramses
Hallo Hans
Irgendwie wird der Code bei der Umwandlung falsch umgebrochen.
Im obigen beitrag ist die "If"-Anweisung nicht in einer neuen Zeile dargestellt sondern wird ans Ende angehängt.
Gruss Rainer
AW: An Hans W. Herber: Fehler in der Codedarstellung
28.02.2007 12:30:52
René
Es funktioniert so, wie ich es mir vorgestellt habe.
Vielen Dank fuer die Loesungsvorschlaege!!
MfG
René
Anzeige
AW: MsgBox - Mit OK ein Modul aktivieren
27.02.2007 21:12:25
Thorsten_Z
Hallo Rene,
ich bin keine VBA leuchte, aber folgenden Code habe ich aus der Windowshilfe zusammengebastelt. Mußt nur noch an der Stelle "Call" den namen deines Makros einsetzten. natürlich ohne die '

Sub nachricht()
Dim Mldg, Titel, Ktxt, Antwort
Mldg = "Achtung! Mit 'OK' wird versucht, diese Datei als E-Mail zu versenden. Wenn Sie _
dies nicht wuenschen, brechen Sie den Vorgang bitte jetzt ab."
Stil = vbOKCancel
Titel = "Wichtiger Hinweis für Benutzer"
Ktxt = 1000
Antwort = MsgBox(Mldg, Stil, Titel, Ktxt)
If Antwort = vbYes Then
Call 'Dein Makro'
Else
Exit Sub
End If
End Sub
~f~
Rückmeldungen wäre nett
Gruß
Thorsten
Anzeige
AW: MsgBox - Mit OK ein Modul aktivieren
28.02.2007 12:12:19
René
Ich bedanke mich vorab schon mal fuer die Loesungsvorschlaege, zum Test bin ich allerdings noch nicht gekommen. Habe es auch eben erst gelesen. Vielen Dank vorab.
MfG
René

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige