Array wegschrijven van

[jansm]

Hallo, hoe kan onderstaand array worden weggeschreven beginnend bij A5 in plaats van A1?

With Sheets("TB_M")  
     .Cells(1).CurrentRegion.Clear
     .Columns(2).NumberFormat = "@"
     .Cells(1).Resize(UBound(arr2), UBound(arr2, 2)) = arr2
    On Error Resume Next  
End With

 

[HSV]

With Sheets("TB_M")  
     .Cells([COLOR=#0000ff]5,1[/COLOR]).CurrentRegion.Clear
     .Columns(2).NumberFormat = "@"
     .Cells([COLOR=#0000ff]5,1[/COLOR]).Resize(UBound(arr2), UBound(arr2, 2)) = arr2
    On Error Resume Next  
End With

Maar als er wat in A3:A4 staat wordt dat ook gewist (currentregion = aaneengesloten bereik)

 

[snb]

en die 'On error resume next' mag ook nog eens weg...