Speichern unter schlägt fehl
18.08.2015 10:36:18
Conelius
mittels Makro kopiere ich einen Excel-Sheet (.xlsm) in eine neue Arbeitsmappe. Die möchte ich speichern unter einem angegeben Pfad und bestimmten Namen. Leider schlägt hier meine SaveAs Funktion fehl und ich erhalte von Windows folgende Fehlermeldung:
Weiß jemand worin die Ursache des Fehlers liegt?
Vielen Dank im Voraus!
Mein Makro:
Sub Speichern()
ActiveWorkbook.Worksheets("Test").Copy
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
If Dir("c:\test", vbDirectory) = "" Then
MkDir "c:\test"
End If
ActiveWorkbook.SaveAs "c:\test" & "\Datenauswertung.xlsx"
MsgBox "Die Datei wurde gespeichert.", vbInformation
End Sub