|
Hallo Liebe Leute,
ich brauche dringend eure hilfe, ich komme hier einfach nicht weiter... In meinem Code ziehe ich mir immer werte aus einem anderen sheet. Nun speichet die datei aber nur immer ein Sheet ab in der neuen datei. Ich brauche aber alle sheet, das diese alle miteinander verknüpft sind. Ich bin echt am verzweifeln und komme hier einfach nicht weiter...
Ich möchte daher salopp ausgedrückt, die werte nur im sheet infrastructure ändern solande daten im sheet input data vorhanden sind aber es sollen auch alle anderen sheet in der bisheringen Datei mitkopiert werden. Daher übernehme die werte aus sheet input data und füge sie in das sheet infrastruture und dann speicher die datei mit allen sheet under einem neuen namen ab...
ich bin echt am verzweifeln...
Sub Test()
Dim Qw As Worksheet 'Quelle
Dim Zw As Worksheet 'Ziel
Dim Nw As Workbook 'neue
Dim Z
Dim strOrdnerZiel, strDatum As String
strDatum = InputBox("Datum für zu erstellende Dateien", "Vorlagen erstellen", _
Format(Date, "YYYYMMDD"))
If strDatum = "" Then Exit Sub
strOrdnerZiel = "C:\Users\xxxx\Desktop\Bottomup Templates\" & strDatum & _
"_Market Estimations_RegX_"
Set Qw = ThisWorkbook.Worksheets("Input data")
Set Zw = ThisWorkbook.Worksheets("Infrastructure")
For Each Z In Qw.Range("A2", Qw.Range("A1").End(xlDown)).Cells
Zw.Range("B3") = Z.Offset(0, 3).Value '[Sales Region], spalte 4
Zw.Range("B4") = Z.Offset(0, 2).Value '[Region], Spalte 3
Zw.Range("B5") = Z.Offset(0, 1).Value '[Country], Spalte 2
Zw.Range("C5") = Z.Value '[Country Code], Spalte 1
Zw.Copy
Set Nw = ActiveWorkbook
Nw.SaveAs _
Filename:=strOrdnerZiel & Z.Offset(0, 1).Value & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Nw.Close savechanges:=False
Next
End Sub
|