Kopieren von Zeilen von einem Blatt in ein anderes

Question

Das folgende Skript scheint so zu funktionieren, dass es funktioniert, aber ich bekomme einen Fehler "Objekt definiert" in den unten markierten Zeilen. Ich kann nicht finden, was dieses überhaupt verursacht ...

Sub MailMerge() 
Sheets.Add.Name = "MailMerge" 
Dim MailMerge As Worksheet 
Set MailMerge = Sheets("MailMerge") 
Dim Rng As Range 
Dim i, index, lastrow As Long 
Dim Abstracts As Worksheet 
Set Abstracts = Sheets("Abstracts") 

lastrow = Abstracts.Cells(Rows.Count, 1).End(xlUp).row 


For i = 1 To lastrow 
    Set Rng = Abstracts.Range("O" & i) 
     If WorksheetFunction.CountA(Rng) >= 1 Then 
      Abstracts.Range("A" & i).Resize(0, 14).Copy _ 
      Destination:=MailMerge.Range("A" & i).Resize(0, 14) 
      'this is where the error is occuring 
     End If 
Next 

End Sub 

Irgendwelche Vorschläge?

Answer 1

Größenänderung ist nicht wie OFFSET. Es wird die Größe des Bereichs auf die vorgeschriebene Größe festgelegt. Sie legen also die Bereichsgröße auf 0 Zeilen fest. Es sollte 1:

Sub MailMerge() 
Sheets.Add.Name = "MailMerge" 
Dim MailMerge As Worksheet 
Set MailMerge = Sheets("MailMerge") 
Dim Rng As Range 
Dim i, index, lastrow As Long 
Dim Abstracts As Worksheet 
Set Abstracts = Sheets("Abstracts") 

lastrow = Abstracts.Cells(Rows.Count, 1).End(xlUp).Row 


For i = 1 To lastrow 
    Set Rng = Abstracts.Range("O" & i) 
     If WorksheetFunction.CountA(Rng) >= 1 Then 
      Abstracts.Range("A" & i).Resize(1, 14).Copy _ 
      Destination:=MailMerge.Range("A" & i).Resize(1, 14) 
      'this is where the error is occuring 
     End If 
Next 

End Sub