Mit nachstehendem Code speichere ich eine Datei unter neuem Namen ab. Diese abgespeicherten Dateien sind mir allerdings zu groß da ich nur die zwei ersten Worksheets der Originaldatei brauche. Ich möchte das ganze nun so abändern das ich eine neue Datei aufmache, sie unter dem generierten Namen abspeichere und die zwei ersten Worksheets hineinkopiere. Habe mir das ganze mit dem Macrorecorder aufgezeichnet und das Macro abgeändert. Er legt eine neue Datei an, speichert sie unter dem gewünschten Namen ab aber dann hängt es. Sobald ich versuche die Datei mit "ActiveWorkbook."C:\Eigene Dateien\Betriebsbuch\" & Kopie & ".xls" anzusprechen bekomme ich eine Fehlermeldung. Wie kann ich das nachstehende Macro so abändern das ich mein gewünschtes Ergebnis bekomme ? In der Recherche bin ich noch nicht fündig geworden. Bin für jede Hilfe dankbar.
Private Sub Speichern_Click()
Application.DisplayAlerts = False
'Name = Name der Originaldatei
Dim Name As String
Name = Cells(7, 2).Value
'Kopie = Name der abzuspeichernden Datei
Dim Kopie As String
Kopie = Cells(7, 1).Value
'Scroll Aera wird freigegeben
Worksheets("Vorlage").ScrollArea = "A1:M51"
Worksheets("Rückseite").ScrollArea = "A1:J70"
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\Betriebsbuch\" & Kopie & ".xls"
Sheets("Vorlage").Activate
Range("A3:D8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Anwahl Button: Öffnen !
On Error Resume Next
ActiveSheet.Shapes("CommandButton3").Select
Selection.Cut
' Anwahl Auswahlfeld: Schwimmbecken
ActiveSheet.Shapes("ComboBox1").Select
Selection.Cut
Range("G11").Select
ActiveWorkbook.Save
Workbooks.Open FileName:="C:\Eigene Dateien\Betriebsbuch\" & Name + ".xls", ReadOnly:=False
'Windows(Kopie + ".xls").Activate
'ActiveWorkbook.Close
'Scroll Aera wird eingegrenzt
Worksheets("Vorlage").ScrollArea = "G1:M48"
Worksheets("Rückseite").ScrollArea = "D1:J69"
Application.DisplayAlerts = True
End Sub
Gruß aus Mainhatten
Rainer