Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Allgemeine Msgbox

Betrifft: Allgemeine Msgbox von: Mark
Geschrieben am: 01.08.2005 12:40:01

Hallo Leute,
kann mir jemand folgenden VBA-Code zusammenbauen.
Ich möchte später eine Msgbox haben, die beim Klick auf OK-Button folgendes ausführt (siehe unten). Bei Klick auf Abbrechen-Button eben entsprechend das Speichern abrechen.
Danke
-Mark-

Private Sub CommandButton5_Click()
Dim Verz As String, fn
Verz = "c:\Datei\Projekte\"
fn = Application.GetSaveAsFilename(Verz, "Excel-Arbeitsmappe *.xls),*.xls", , "Datei speichern")
If fn = False Then Exit Sub
Sheets.Copy
With ActiveWorkbook
    .SaveAs Filename:=fn
    .Close
End With
End Sub

  


Betrifft: AW: Allgemeine Msgbox von: Russi
Geschrieben am: 01.08.2005 12:45:44

Hallo Mark!

Du meinst so?

Private Sub CommandButton5_Click()
Dim Verz As String, fn
If MsgBox("WIRKLICH?", vbYesNo) = vbNo Then Exit Sub
Verz = "c:\Datei\Projekte\"
fn = Application.GetSaveAsFilename(Verz, "Excel-Arbeitsmappe *.xls),*.xls", , "Datei speichern")
If fn = False Then Exit Sub
Sheets.Copy
With ActiveWorkbook
    .SaveAs FileName:=fn
    .Close
End With
End Sub

Viele Grüße
Russi
www.Russi.de.tt


  


Betrifft: AW: Allgemeine Msgbox von: Mark
Geschrieben am: 01.08.2005 13:23:12

Hallo Russi,
so hat es geklappt.

Private Sub CommandButton5_Click()
Dim Verz As String, fn
If MsgBox("WIRKLICH?", vbYesNo) = vbNo Then Exit Sub
Verz = "c:\Datei\Projekte\"
fn = Application.GetSaveAsFilename(Verz, "Excel-Arbeitsmappe (*.xls),*.xls", , "Datei speichern")
If fn = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fn
End Sub


Vielen Dank auch an Ralf


  


Betrifft: AW: Allgemeine Msgbox von: Russi
Geschrieben am: 01.08.2005 13:25:42

Hallo Mark!

Die Lösung von Ralf Anton ist noch ein Stückchen sicherer:

If MsgBox("WIRKLICH?", vbYesNo) <> vbYes Then Exit Sub

Damit wird auch das Schließen der msgbox über das Kreuz in der Ecke abgefangen.

Viele Grüße
Russi
www.Russi.de.tt


  


Betrifft: AW: Allgemeine Msgbox von: Ralf Anton
Geschrieben am: 01.08.2005 12:48:06

Hallo Mark,

füge folgende Zeile direkt unter der Variablendeklaration ein:

if (msgbox("Weiter?",vbyesnocancel + vbquestion,"Weiteres Vorgehen") <> vbyes) then exit sub

Ciao, Ralf


 

Beiträge aus den Excel-Beispielen zum Thema "Allgemeine Msgbox"