VBA/Excel - smid array af værdier ind i et range!

NB: Er klar over at det ikke er et array jeg har med at gøre!

Med 3 variable skal der 3 linier til - godt du ikke har 70....

Range("A1").Value = var1
osv.

Sub Demo()
    Dim lCount As Long
    Dim colVar As Collection
    Set colVar = New Collection

    colVar.Add "Dette er en test"
    colVar.Add 42
    colVar.Add Now()

    For lCount = 1 to colVar.Count

    Next lCount

Hovsa - der var lige en fejlbetjening.....

Public Sub Demo()
    Dim lCount As Long
    Dim colVar As Collection
    Set colVar = New Collection

    colVar.Add "Dette er en test"
    colVar.Add 42
    colVar.Add Now()

    For lCount = 1 To colVar.Count
        Cells(lCount, 1).Value = colVar(lCount)
    Next lCount
End Sub

det er da næsten synd at det ikke er et array, for så bliver ting hurtigere og nemmere...:-)

dim var
var(1) = "Dette er en test"
var(2) = 42
var(3) = Now()
range("A1:A3")=var

Det kan som du selv skriver nemt gøres med 3 linier - jeg havde bare en forhåbning om at det kunne gøres med noget i retning af følgende teknik på en linie:

range("a1:a3").value = array(var1, var2, var3)

Hvor array er den funktion/metode jeg leder efter... - men det kan godt være det er umuligt.

Årsagen til at mine informationer ikke ligger i et array er, at de ikke umiddelbart er relaterede... - men det kunne godt være jeg skulle gentænke det, hvis der ikke findes en funktion til at "array-isere" eksisterende variable...

Sorry, der gled lige noget ud...
Sub test()
Dim var(3, 0) As Variant

var(0, 0) = "Dette er en test"
var(1, 0) = 42
var(2, 0) = Now()

Range("A1:A3") = var
End Sub

...pinligt... - den linie jeg foreslog med array() fungerer rent faktisk...

bak: hvis du også gider lægge et svar, kan I dele pointene.

Jeg tror ikke din egen linie virker, Du vil få samme resultat i alle celler. Du er nødt til at transponerere dit array først.

Range("A1:A3") = Application.WorksheetFunction.Transpose(Array(var1, var2, var3))

bak: Det fungerer faktisk fint uden transponering - hvorfor skulle det ikke fungere? (Har du læst noget i online-hjælpen der indikerer det modsatte eller?)

Nej, men = array(var1, var2, var3) giver et "vandret" array og det forsøger du at tvinge ind i et lodret array (range("A1:A3)).
Dette burde betyde at du får Var1 i hele din range. Hvis din range derimod var range("A1:C1") ville det virke.
Derfor transponerer jeg, så jeg "vender" array'et

bak>> jeg mener, at Excel er fløjtende ligeglad med om du "vender" array'et eller ej!

Nej, flemming.
Prøv lige dette lille eksempel.
Du får nu A i både A1,A2 og A3

Sub test()
Range("A1:A3") = Array("A", "B", "C")
End Sub

Point taken

sorry - jeg har rent faktisk også skrevet forkert ovenfor - jeg smider det rent faktisk ind i et vandret array - så det er jo nok derfor jeg ikke oplever problemer.