Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox mit zwei Button

Forumthread: MsgBox mit zwei Button

MsgBox mit zwei Button
05.08.2003 12:24:05
Ulf
Hallo habe folgendes Problem. Ich möchte das wenn die Datei geschlossen wird bei Änderung das Netscape Mail Programm aufgerufen wird. Ich habe eine MsgBox mit vbYesNo. Alerdings funzt es nicht kann einer erkennen warum??
Hier der Code 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
MsgBox "efw", vbYesNo
If vbNo Then
ActiveWindow.Close
End If
If vbYes Then
Application.Dialogs(xlDialogSendMail).Show
End If
End Sub

danke für eure Hilfe
ulf
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox mit zwei Button
05.08.2003 12:33:05
PeterA
Hallo ulf
Mit folgendem Code wird es funktionieren. (Kleiner Tipp ! Im VBA Editor MSGBOX eingeben makrieren und auf F1 drücken, dann kanst du dir Beispielcodes dafür ansehen
PeterA

Sub Msgbox_mit_zwei_Schaltfläschen()
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "efw"
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "efw"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
MsgBox "JA"
Else
MsgBox "NEIN"
End If
End Sub


Anzeige
AW: MsgBox mit zwei Button
05.08.2003 12:37:11
Mike E.
Hallo Ulf,
hier die korrekte Syntax:

Sub Test()
Dim Frage
Frage = MsgBox("efw", vbYesNo)
If Frage = vbNo Then
MsgBox "da" 'ActiveWindow.Close
End If
If Frage = vbYes Then
MsgBox "wo"
End If
End Sub

Gruß
Mike

AW: Danke
05.08.2003 12:39:21
ulf
Danke für eure Hilfe
gleich zwei Lösungsansätze Super!!
ulf

Anzeige
AW: MsgBox mit zwei Button
05.08.2003 12:50:52
Ivan


hi ULF
versuche das einmal!
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Dim warnung As String
    
     warnung = MsgBox(" Wirklich Beenden ?", vbYesNo + vbQuestion + vbDefaultButton2, "Netscape")
    If warnung = vbYes Then
      Call netscape
      End If
     If warnung = vbNo Then
      Exit Sub
   
End If
End Sub


'##########################################
'in ein neues modul
Option Explicit
Sub netscape()
Application.Dialogs(xlDialogSendMail).Show
  End Sub
'########################################
gruss
ivan

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige