Werte kopieren in 30 einzelnen Sheets
17.01.2015 13:39:19
Dieter(Drummer)
Hi VBAler/innen,
ich benötige ein Makro, dass in 4 Dateien, alle haben die Sheets "VeraBsV01" und "VeraV02" bis "VeraV30", die Werte aus den Zellen C47, E47, G47, I47, K47 und M47 in die Zellen, C15, E15, G15, I47, K47,und M47 einfügen. Dies geht wohl mit "arr", aber das bekomme ich selbst nicht hin.
Freue mich, wenn mir da wieder geholfen werden kann.
Gruß,
Dieter(Drummer)
Nur ein Makromuster, aus gestriger tollen Forumshilfe, für Aufruf der 4 Dateien!:
Sub SaldoInJan()
Dim i As Integer, j As Integer, arrWkb
Dim Blatt As Object
arrWkb = Array("C:\Rab\RAB-Jahrwechsel\RabVeraMg.xls", "C:\Rab\RAB-Jahrwechsel\RabVeraRy. _
xls", "C:\Rab\RAB-Jahrwechsel\RabVeraVie.xls", "C:\Rab\RAB-Jahrwechsel\RAB-Jahrwechsel\RabVeraWi.xls")
With Application
.ScreenUpdating = True
.Calculation = xlCalculationManual
End With
For j = 0 To 3
Workbooks.Open Filename:=arrWkb(j), UpdateLinks:=3
'Workbooks.Open Filename:=arrWkb(j)
On Error Resume Next
For Each Blatt In Worksheets
With Blatt
For i = 3 To 13 Step 2
.Cells(15, i).Copy .Cells(47, i)
.Cells(15, i).Value = "" 'löscht den Inhalt der Zelle nach dem kopieren
Next
End With
Next Blatt
'Workbooks(arrWkb(j)).Close True
Next j
With Application
.ScreenUpdating = False
.Calculation = xlCalculationAutomatic
End With
End Sub