Schreiben in einen Bereich mit VBA-Array

Question

Ich habe ein Skript, das den ersten Zellenwert einer Tabelle aus einer Datenbank zieht und dann 10 mal hinzufügt. Jetzt möchte ich diese Liste füllen, um zu übertreffen. keine Idee

sub x() 
    Dim myArray As Variant 
    Dim i As Variant 

    myArray = Sheets("License Plate Number").Range("LP") 
    myVariable = (Trim(Right(mp_start, 12))) 

    For i = 0 To (ord_qty/120) - 1 

     Myarr = "MP" & myVariable + i 
     myArray = Myarr 

     'MsgBox Myarr 
     Debug.Print Myarr 

    Next i 

end sub 

Answer 1

Es ist sehr einfach. Du machst es einfach so.

Range("A1:J1")=Myarr