Sub Kopieren3()
Dim i As Long
With ActiveSheet
i = 1
Do While Cells(i, 1).Value <> ""
i = i + 1
Loop
lnglastrow = Cells(i, 1).Row - 1
i = i - 1
j = i - 13
Range(Rows(j), Rows(i)).Rows.Select
Selection.Copy
End With
Sheets("TL-Vorgabeblatt").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Woher kann das kommen? Hab auch einmal alles markiert und auf Text gestellt, der gleiche Fehler und bei 3 funktioniert es...
Ich nutze Office 2010