blackout bei range copy
12.02.2016 08:47:02
katharina
seit geraumer Zeit finde ich den Fehler nicht in folgender Sub. Ich möchte eigentlich nur einen Bereich von Tabelle I nach E kopieren. Aber egal was ich probiere, ich bekomme immer die Fehlermeldung 1004 (anwendungs- oder objektdefinierter fehler). Leider sehe ich nicht die Ursache dafür.
Für eure Hilfe, wäre ich sehr dankbar!
Katharina
Sub EingabeTabelleBauenTest()
SeqLng = 52
Spalte_Name = 3
Set tabE = Sheets("Eingabe")
Set tabI = Sheets("Import")
'Sequenzliste übertragen
tabE.Range(Cells(3, 3), Cells(2 + SeqLng, 3)) = tabI.Range(Cells(8, Spalte_Name), Cells(7 + _
SeqLng, Spalte_Name))
'Dim SeqList As Range
'SeqList = tabI.Range(Cells(8, Spalte_Name), Cells(7 + SeqLng, Spalte_Name))
'tabE.Range(Cells(3, 3), Cells(2 + SeqLng, 3)) = SeqList
'tabI.Range(Cells(8, Spalte_Name), Cells(7 + SeqLng, Spalte_Name)).Copy
' tabE.Range(Cells(3, 3), Cells(2 + SeqLng, 3)).Paste
End Sub