Hallo Zusammen,
ich habe folgenden Code der leider nicht funktioniert. Es erscheint immer: Fehler beim kompilieren: Function oder variable erwartet..
Ich habe in der Datei ein Arbeitsblatt mit dem Namen Input Data, hier ziehe ich mir die Daten raus und trage es in das Sheet Infrastructure in. Dann soll das Arbeitsblatt in dem Ordner mit dem Ländernamen am ende abgespeichert werden. Dies soll so lange gemacht werden, bis keine Daten mehr in dem sheet Input Data vorhanden sind.
Kann mir hier jemand helfen.
VG
Daniel
Sub Test()
Dim Qw As Worksheet 'Quelle
Dim Zw As Worksheet 'Ziel
Dim Nw As Workbook 'neue
Dim Z
Set Qw = ThisWorkbook.Worksheets("Input data")
Set Zw = ThisWorkbook.Worksheets("Infrastructure")
For Each Z In Qw.Range("A1", 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
Set Nw = Zw.Copy
Nw.SaveAs _
Filename:="C:\Users\xxx\Desktop\Bottomup Templates\20200925_Market " & _
"Estimations_RegX_" & Z.Offset(0, 1).Value & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Next
End Sub
|