Blatt nach speichern schliessen
31.01.2005 16:30:44
Michael
ich habe eine Rechnungsvorlage erstellt. Ich möchte erreichen das wenn ich diese über ein Makro abgespeichert habe, geschlossen wird und nur noch die gespeicherte Kopie offen bleibt, dann habe ich nicht mehr das Problem das unbeabsichtigt etwas in der Vorlage abgespeichert wird.
ich habe folgendes Marcro:
Sub Blattspeichern_Rechnung()
TBName = InputBox("Nachnamen sowie Rechnungsnummer angeben!")
If TBName = "" Then Exit Sub
Worksheets.Copy
ActiveWorkbook.SaveAs "\\michael\C\Rechnungen\" & TBName
ActiveWorkbook.Close
End Sub
Mit diesem Macro speichere ich die Rechnung in meinem Rechnungsordner, dass Problem ist nur das so immer die Vorlage geöffnet bleibt und die Kopie geschlossen wird.
Ich bekomme es einfach nicht hin. Kann mir jemand helfen?
M.f.G.
Michael