Hallo,

Ich habe eine Mappe mit 3 Sheets, welche alle gleich formatiert sind. Dann habe ich ein Marko geschrieben um den letzten Daten Block zu kopieren und in eine neue Mappe einzufügen. Diesen habe ich in jedem Sheet benutzt. Bei sheet 3 funktioniert er tadellos bei Sheet 1 und 2 kommt der Fehler:

Laufzeitfehler 13: "Typen unverträglich"

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