Copy Paste LF 1004
04.03.2016 13:03:12
Django
ich versteh wirklich nicht warum das kommt.
Das Makro kopiert die Werte nicht rüber.
Was ist mein Fehler?
Danke :)
Sub SA()
Dim i As Long
Dim Name As String
For i = 30 To 77
i = i + 2
Worksheets("Tabelle1").Range(Cells(102, i), Cells(296, i + 2)).Copy
Worksheets("Blanko").Copy After:=Worksheets(Worksheets.Count)
Name = Worksheets("Tabelle1").Cells(102, i).Value
Worksheets(Worksheets.Count).Name = Name
Worksheets(Name).Range(Cells(1, 1), Cells(195, 3)).PasteSpecial Paste:=xlValues
Next i
End Sub
Anzeige