Einfaches Copy und PasteSpecial funktioniert nicht

Hallo zusammen,
ich versuche zu lernen, deshalb stelle ich eine für euch bestimmt banale Frage.
Ich möchte Zellen von einem Arbeitsblatt in ein anderes kopieren. Das funktioniert auch, wenn ich Zelle für Zelle kopiere. Aber wenn ich eine Range kopieren will, dann bekomme ich einen Laufzeitfehler 1004, Anwendungs- oder objektdefinierten Fehler.
Die gleiche Syntax funktioniert aber in einem anderen Codeabschnitt problemlos.

Sub Export_einlesen()
Dim Dateiname As String
Dim i As Integer
Dim iRow As Integer
Dim iColumn As Integer
Dim LRow As Integer
Dim LColumn As Integer
Dim Lwb As Workbook
LRow = 1
LColumn = 1
iRow = 10
iColumn = 2
Do Until Worksheets("Export").Cells(LRow + 1, 1)  Worksheets("Export").Cells(LRow, 1)
Worksheets("Export").Range(Cells(LRow, LColumn), Cells(LRow, LColumn + 9)).Copy
Worksheets("Batch").Cells(iRow, iColumn).PasteSpecial
If IsEmpty(Worksheets("Export").Cells(LRow + 1, 1)) Then Exit Do
Loop
End Sub

Er stört sich jedesmal am Copy & Paste. Ich weiss aber nicht wieso. Kann es an Zellformatierungen in der Quelle o. ä. liegen?
Ich würde ungern Zelle für Zelle kopieren. Das funktioniert zwar, ist aber hier weniger "elegant".
Vielen Dank für eure Hilfe und viele Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Export_einlesen() Dim Dateiname As String Dim i As Integer Dim iRow As Integer Dim iColumn As Integer Dim LRow As Integer Dim LColumn As Integer Dim Lwb As Workbook LRow = 1 LColumn = 1 iRow = 10 iColumn = 2 With Worksheets("Export") Do Until .Cells(LRow + 1, 1) .Cells(LRow, 1) .Range(.Cells(LRow, LColumn), .Cells(LRow, LColumn + 9)).Copy Worksheets("Batch").Cells(iRow, iColumn).PasteSpecial If IsEmpty(.Cells(LRow + 1, 1)) Then Exit Do LRow = LRow + 1 '? ' iRow = iRow + 1 '? Loop End With End Sub

Hallo Alex,
so sollte es aus jeder Tabelle heraus funktionieren:

Option Explicit

Public Sub Export_einlesen()
    Dim Dateiname As String
    Dim i As Long
    Dim iRow As Long
    Dim iColumn As Long
    Dim LRow As Long
    Dim LColumn As Long
    Dim Lwb As Workbook

    LRow = 1
    LColumn = 1
    iRow = 10
    iColumn = 2

    With Worksheets("Export")

        Do Until .Cells(LRow + 1, 1).Value <> .Cells(LRow, 1).Value
            .Range(.Cells(LRow, LColumn), .Cells(LRow, LColumn + 9)).Copy
            Worksheets("Batch").Cells(iRow, iColumn).PasteSpecial
            If IsEmpty(.Cells(LRow + 1, 1).Value) Then Exit Do

        Loop
    End With
End Sub

Die Zähler hochsetzen musst du noch einbauen.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Einfaches Copy und PasteSpecial funktioniert nicht

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfaches Copy und PasteSpecial funktioniert nicht

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread