schliessen bzw speichern
13.10.2005 08:38:59
virgilio
sitze mal wieder in der Tinte...
Brauche Euch.
Ziel:
1) originale Datei speichern verhindern. passt
2) wenn Klick auf speichern dann speichern unter Name in Zelle. passt fast
1) unteres Makro verhindert beim Schliessen die MsgBox "Möchten sie speichern...." Passt soweit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub
2)Wenn der Anwender auf speichern klickt möchte ich, dass unteres Makro ausgeführt
wird. Wie aber stelle ich das an, derzeit ist Makro nicht mit den Befehl "Speichern" verknüpft?
Sub DateiSpeichern()
ActiveWorkbook.SaveAs "C:\Programme\Finstralkalk\Angebote\" & Range("P9")
End Sub
Anzeige