Sub Blattspeichern()
Dim s As String
ActiveSheet.Copy
s = ActiveSheet.Name & ".xls"
MkDir "C:\xx"
ChDir "C:\xx"
ActiveWorkbook.SaveAs Filename:=s
Hallo,
dieser code legt aus excel einen ordner an und speichert das aktuelle arbeitsblatt. Leider funktioniert es nicht mehr, wenn der ordner bereits besteht und ein zweites arbeitsblatt darin gespeichert werden soll.
Kann jemand helfen? Es wäre supi und ich beadnke mich schon mal im voraus.
gruß michael