Code aufrufen mit optinalem Argument
31.10.2007 14:49:00
Peter
Nachfolgenden Code rufe ich aus,w enn ich die aktive Datei speichern will. Nun möchte ich den Code gerne wie folgt modifizieren:
mit Call abSpeichern
soll der nachfolgende Code, wie er jetzt besteht, ausgeführt werden
mit Call abSpeichern ohne
soll der nachfolgende Code ausgeführt werden, ohne dass nachgefragt wird, ob tatsächlich gespeichert werden soll.
Wie muss ich den Code umbauen, dass das Zusatzargument "ohne" diese Wirkung hat?
Danke für eine Rückmeldung.
Peter
Sub abSpeichern()
Dim aName As String
Dim aUs As Integer
'Abfrage, ob Daten gespeichert werden sollen
aName = ActiveWorkbook.Name
aUs = MsgBox(" Wollen Sie die Datei speichern?", vbYesNo + vbQuestion + _
vbDefaultButton1, "DATEI OHNE SPEICHERN SCHLIESSEN = MÖGLICHER DATENVERLUST")
If aUs = vbYes Then
Application.StatusBar = _
"Datei " & aName & " wird gespeichert"
ActiveWorkbook.Save
Else
End If
Application.StatusBar = ""
End Sub