Array skal indsættes som række i Excel

hvis det kun 1 dimension

Public Sub ss()
a = Range("A1:A30")
For i = 1 To UBound(a)
Cells(2, i) = a(i, 1)
Next
End Sub

"På nuværende tidspunkt indsættes arrayet ved at køre en løkke, som indsætter et punkt fra arrayet og hopper en gang til højre.

Er der mulighed for at sætte arrayet ind i en "Række" der bare kan pastes ind i Excelarket."

Hvad er forskellen på det du allerede kan med macroen, og det du efterspørger?

Forskellen er permormance. Da det med at hoppe en til højre værd gang bruger en del processor kraft, i modsætning til bare at indsætte en linje.

Til Kabbak. Jeg har selv siddet og kigget lidt på problemet.

Man behøver ikke lave en forn/next lykke man kan simpelthen sætte arrayet lig med den range man ønsker.

sub ss
dim ting as vardata
ting= array("bla","bla2")
range("a1","b1").value = ting
end sub

Men Kabbak smid et svar, så kan vi dele pointene

ok, din virker, men har du prøvet at tage arryet, fra en kolonne i excel, ligesom jeg gjorde, i min kommentar , for der kan du ikke.

jo det kan man fint... :-)
Public Sub ss1()
a = Range("A1:A30")
Range("B1:BD1") = Application.Transpose(a)
End Sub

ok, jeg havde ikke lige tænkt på Transpose ;-((

Tak for de hurtige svar!! Jeg er kommwr videre :-)