Workbooks.Add
13.10.2005 22:34:19
Korl
ich möchte gerne aus meiner activen Workbook 2 Sheets kopieren in eine neue Workbook und diese speichern in einen selbsterstellten Ordner.
Ich habe mich daran versucht mit dem Resultat, das die 2 Sheets in der selben Workbook kopiert werden.
Hier mal mein Versuch:
Sub Mappe_exportieren()
Dim wksA As Worksheet
Dim wksK As Worksheet
Dim wbZ As Workbook
Set wksA = Worksheets("Auswertung")
Set wksK = Worksheets("Kontrolle")
MakeSureDirectoryPathExists "C:\Test2\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Test2\Export.xls"
Set wbZ = Workbooks("Export.xls")
wksA.Copy wbZ.Worksheets("Auswertung")
wksK.Copy wbZ.Worksheets("Kontrolle")
End Sub
VBA ist leider immer noch nicht so meine Stärke.
Kann mir jemand unter die Arme greifen?
Gruß Korl