ich habe ein hoffentlich einfaches Problem und stehe auf dem Schlauch.
Ich habe mir folgenden kleinen Code erzeugt, um mir eine Kopie der aktuellen Datei speichern zu lassen.
[code]
Sub Datei_speichern_unter()
Dim NeuerName As String
NeuerName = Range("B10")
NeuerName = Replace(NeuerName, "/", "-")
ActiveWorkbook.SaveCopyAs NeuerName & "_" & Range("A2") & "_" & Range("B2") & ".xlsm"
End Sub
[/code]Nun würde ich gerne zwei Dinge erreichen:
1. Die Werte bestimmter Zellen sollen in definierte Zellen der neuen Datei geschrieben werden.
Bsp:
In Tabelle "Temp" steht
A1 = Text1
B1 = Zahl1
Nun sollen diese Werte in der neuen Datei in der Tabelle "Informationen" in die Zellen X1 und Y1 geschrieben werden.
2. In der Kopie soll dann die Tabelle mit dem Namen "Temp" gelöscht werden.
Ich möchte eine Batchroutine erzeugen, die mir mehrere Dateien mit dem gleichen Inhalt erzeugt, die sich lediglich in den Zellinhalten der Zelle A1, B1, A2, B2, A3, B3 etc unterscheiden.
Und jede Zeile entspricht dabei einer neuen Datei.
Wisst ihr, was ich meine?
Würde mir hier jemand weiterhelfen? :-)