Office: Datei speichern, vorhandene Datei öffnen und unter neuem Namen speichern

Hallo zusammen

Ich habe folgendes versucht:
Die aktuelle Datei speichern. Der Name der Datei befindet sich in der Zelle G2. Eine Datei öffnen (aus Pfad) und diese Datei unter neuem Namen speichern. Der Name dieser Datei steht in der Zelle H2 in der Datei die vorher schon offen war. Die Datei ist eine Vorlage. Nun soll die alte Datei wieder geschlossen werden und nur noch die Datei mit neuem Namen offen bleiben.

Folgendes hat jedoch nicht geklappt:

Option Explicit

Sub Schaltfläche9_Klicken()

Dim pfad As String
Dim dateiname As String
Dim nextdatei As String

dateiname = ActiveWorkbook.Range("G2").Value
nextdatei = ThisWorkbook.Range("H2").Value

pfad = "hier steht der pfad der Datei die geöffnet werden soll"

ActiveWorkbook.SaveAs Filename:="hierstehtzielpfad" & dateiname & ".xlsm"

Workbooks.Open = pfad

ActiveWorkbook.SaveAs Filename:="hierstehtzielpfad" & nextdatei & ".xlsm"

ThisWorkbook.Close

End Sub


Vielen Danke für eure Hilfe

:)

 

beim speichern solltest Du die Variable "Pfad" benutzen.
Das Speichern sollte man mit dem Makrorecorder aufzeichnen, damit der Code komplett ist.
, FileFormat:= xlOpenXMLWorkbookMacroEnabled

 

Hallo Hajo

Danke für deine Antwort.

Ich habe den Code so umgeändert:

Code:

Bei mir zeigt es jedoch schon einen Fehler an bei der Definition der Variable Dateiname.
Ich bin ein absoluter VBA Laie und wüsste auch nicht wo ich von dir geschrieben Code einsetzen müsste.

Vielen Dank für deine Hilfe

 

Du benutzt nicht die Variable Pfad sondern das Wort "Pfad"
Bei mir zeigt er auch Fehler an da Pfad kein Pfad ist.

 

Hallo Hajo

Vielen Dank. Das habe ich nun kapiert.
Ich habe jetzt noch das Problem, dass es mir bei Dateiname ="" einen Fehler anzeigt. In der Zelle G" befindet sich die Formel mit der der aktuelle Dateiname angezeigt wird (ohne .xlsm). Weisst du was ich falsch gemacht habe?

Vielen Dank

 

NEIN

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten Gruß Hajo

 

Hallo Hajo

Vielen Dank für deine Antwort. Die Datei "StundenleistungOptima" ist nun hochgeladen.

Vielen Dank

 

In H2 ist ein Fehler, das kann nicht benutzt werden.
Code:

 

Hallo Hajo

Vielen Dank für deine Antwort. Ich habe in der Zelle G2 den Wert 1 und in der Zelle H2 den Wert 2 eingegeben. Es zeigt mir trotzdem einen Fehler an. Mein Ziel ist, dass die Datei unter dem Namen "1" gespeichert wird, die Vorlage aus dem Pfad geöffnet wird und sogleich mit dem Namen "2" gespeichert wird. Danach kann die Datei 2 bearbeitet werden. Wenn man mit der Datei fertig ist soll diese Datei als "2" gespeichert werden, die Vorlage geöffnet und wiederum als "3" gespeichert werden u.s.w.

Vielen Dank

 

es gibt den Ordner nicht zum speichern. Bei mir geht es mit speichern mit meinem Ordner.
Das öffnen habe ich nicht getestet, da Ordner nicht geändert. Ich vermute mal die Datei zum öffnen habe ich auch nicht.

 

Hallo Hajo

Danke für diene Antwort. Bei mir klappt es immer noch nicht mit dem definieren der Variable dateiname. Ich habe das Problem nun anders gelöst. Danke für deine Zeit.