Neues Workbook anlegen
30.09.2003 15:27:21
Sven
Bei diesem Code
Private Sub CommandButton1_Click()
ActiveSheet.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs (ActiveSheet.Range("a2") & "-" & ActiveSheet.Range("f2") & "-" & ActiveSheet.Range("i2"))
ActiveWorkbook.Close
End Sub
Hab ich das Problem,das noch ein Workbook mit Standartbezeichnung offen bleibt.
Wie kann ich dieses denn schließen ohne zu speichern.
Oder wie kann ich,wenn ich statt SaveAs nur Save benutze,dem Workbook den passenden Namen verpasse.
Gruß Sven