Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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


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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige