Blatt in neuer Mappe hinten eingügen
03.09.2002 15:35:53
monika
Ich möchte ein einzelnes Arbeitsblatt in einer neuen Datei speichern.Der Name ergibt sich aus der Zelle A2.Das geht auch.Unter dem selben Namen kommen aber immer wieder Blätter dazu.Diese sollen nun einfach immer hinten angehängt werden,sobald Die neue Mappe mit dem Namen aus A2 bereits erstellt wurde.Ich benutze folgenden Code für eine Schaltfläche:
Dim dName
dName=Worksheets("Re").Range("A2")&".xls"
ActiveSheet.Copy
ChDir "C:\versuch"
ActiveWorkbook.SaveAs Filename:=dName
ActiveWorkbook.Close
End Sub
Ich habe schon mit copy after herumprobiert,das klappt aber überhaupt nicht.
Ich bin dankbar für jeden Rat