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

Allgemeine Msgbox

Allgemeine Msgbox
01.08.2005 12:40:01
Mark
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

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

Betreff
Datum
Anwender
Anzeige
AW: Allgemeine Msgbox
01.08.2005 12:45:44
Russi
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
AW: Allgemeine Msgbox
01.08.2005 13:23:12
Mark
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
Anzeige
AW: Allgemeine Msgbox
01.08.2005 13:25:42
Russi
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
AW: Allgemeine Msgbox
01.08.2005 12:48:06
Ralf
Hallo Mark,
füge folgende Zeile direkt unter der Variablendeklaration ein:
if (msgbox("Weiter?",vbyesnocancel + vbquestion,"Weiteres Vorgehen") vbyes) then exit sub
Ciao, Ralf

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige