Hi,
Niet blocking want er zijn giga veel work arrounds, maar ik vroeg me af of er een methode is om een single param array() in 1 keer op een werksheet te plakken. Normaliter doe ik dit met een multi dimensionale array en dit gaat prima met een resize.
Tuurlijk kan ik een loop gebruiken maar vroeg mij af of er een simple methode te doen met een "oneliner". Ook kan ik van de loop een "oneliner" maken met dubbele punt maar dat was nu niet echt de bedoeling. Misschien dat het gewoon niet kan met die methode maar dan is dat ook een antwoord.
Als voorbeeld:
Niet blocking want er zijn giga veel work arrounds, maar ik vroeg me af of er een methode is om een single param array() in 1 keer op een werksheet te plakken. Normaliter doe ik dit met een multi dimensionale array en dit gaat prima met een resize.
Tuurlijk kan ik een loop gebruiken maar vroeg mij af of er een simple methode te doen met een "oneliner". Ook kan ik van de loop een "oneliner" maken met dubbele punt maar dat was nu niet echt de bedoeling. Misschien dat het gewoon niet kan met die methode maar dan is dat ook een antwoord.
Als voorbeeld:
Code:
Sub Interface()
arr = Array(Null, 123, 123, 123, 123, Null, Null)
'werkt allemaal niet:
Sheet1.Range("b2").Resize(UBound(arr)) = Application.Transpose(arr)
Sheet1.Range("b2").Resize(UBound(arr), 1) = Application.Transpose(arr)
Sheet1.Range("b2:b" & 2 + UBound(arr) + 1) = Application.Transpose(arr)
' etc., etc. ,etc.
End Sub
'dit werkt dan weer wel.
Sub InterfaceLoop()
arr = Array(Null, 123, 123, 123, 123, Null, Null)
For i = 0 To UBound(arr): Sheet1.Range("b" & i + 1) = arr(i): Next i
End Sub