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