01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 |
|
Option Explicit
Sub Daten_Finance_Review1()
' erteund Formate
Dim wbZiel As Workbook, strPath As String, i As Long
strPath = ActiveWorkbook.Path
Application.ScreenUpdating = False
Set wbZiel = Workbooks.Open("R:\Jahresabschluss_DD\JA2023\Finance Review\04_Master für mtl und jährliches Finance Review\Finance Review_Master.xlsx")
With ThisWorkbook.Worksheets("Daten")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(i, "A").Resize(, 268).Copy
With wbZiel.Sheets("Master Data").Range("d4")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "jj")
Next i
End With
Set wbZiel = Nothing
Application.ScreenUpdating = True
End Sub
Sub Daten_Finance_Review2()
' Nur Werte
Dim wbZiel As Workbook, strPath As String, i As Long
strPath = ActiveWorkbook.Path
Application.ScreenUpdating = False
Set wbZiel = Workbooks.Open("R:\Jahresabschluss_DD\JA2023\Finance Review\04_Master für mtl und jährliches Finance Review\Finance Review_Master.xlsx")
With ThisWorkbook.Worksheets("Daten")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(i, "A").Resize(, 268).Copy
wbZiel.Sheets("Master Data").Range("d4").Resize(, 268).Value _
= .Cells(i, "A").Resize(, 25).Value
wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "jj")
Next i
End With
Set wbZiel = Nothing
Application.ScreenUpdating = True
End Sub
|