Copy, Paste
23.04.2014 11:37:29
Shayev
So schaut mein VBA Code aus, leider funktioniert es noch nicht!!
Sub Test()
For i = 1 To Worksheets.Count
If Left(Worksheets(i).Name, 8) = "Assembly" Then
Range("B7").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B7:N26").Select
Selection.Copy
Sheets("Line Balancing Summary Data").Select
Range("B754").Select
Selection.End(xlUp).Select
Range("B47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i
End Sub
Danke im VorausShayev