Neue Excel-Datei erstellen
11.09.2013 16:42:12
Nico
ich möchte gerne aus einer Tabelle (15) meiner aktuellen Excel-Datei die Daten aus dem Bereich A1:F575 in eine neue Excel-Datei reinkopieren. Das Makro sollte automatisch eine .xlsx - Datei erstellen. Dazu soll die neue Datei genau so heissen, wie ich Zelle J91 der Tabelle 11 meiner aktuellen Excel-Datei bestimmt habe. Der Speicherpfad wird in Tabelle 11, Zelle E93 vorgegeben.
Den Code den ich versucht habe lautet:
Option Explicit
Sub NewFile()
Dim fName As Variant
Dim Path1 As String
Path1 = Sheets("11").Range("E93")
ChDir Path1
'Do
fName = Application.GetSaveAsFilename( _
fileFilter:="Microsoft Office Excel-Arbeitsmappe (*.xlsx), *xlsx")
If fName False Then
ActiveWorkbook.SaveAs Filename:=fName
MsgBox "Save as " & fName
End If
'Loop Until fName1 False
'ActiveWorkbook.SaveAs Filename:=fName
'MsgBox "Save as " & fName
'ActiveWorkbook.SaveAs
Dim Filename3 As String
Filename3 = Sheets("11").Range("J91")
ActiveWorkbook.SaveAs Filename:=Filename3 _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("15").Select
ActiveSheet.Unprotect ("XX")
Range("A1:F575").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Skipblanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Jetzt kommt immer sobald ich speichern möchte, der Laufzeitfehler '1004':
Diese Erweiterung kann nicht mit dem ausgewählten Dateityp verwendet werden. Ändern Sie die Dateierweiterung im Textfeld 'Dateiname', oder wählen Sie einen anderen Dateityp aus, indem Sie die Auswahl unter 'Speichern unter' ändern.
Jemand eine Ahnung an was das liegen könnte? Ausserdem muss ich ja jetzt einen Namen für die neue Datei eingeben, ich möchte aber dass er das automatisch zieht und dann in der MsgBox sagt?
Besten Dank. Nico