selectie in variabele zetten

[universe]

Ik ben bezig met het maken van een macro die een bepaalde rij in een variabele moet zetten.

Deze variabele moet later in een andere rij weer worden gezet. Dit is de code die ik al heb gemaakt, dit heb ik gedaan om dat ik het lastig vind om een goed array aan te maken/ uit te lezen.

Kan ieamand me aan een duidelijke oplossing helpen, want ik zit nou al dagen met dit probleem opgescheept en dat begint onderhand toch te irriteren .

Sub Macro1()

Dim test1 As Variant
Dim test2 As Variant


'
' Macro1 Macro
' Macro recorded 2-4-2007 by peelerx
'

'
    Range("E15").Select
    
    test1 = ActiveCell.Offset(0, 1).Range("A1:F1").Select
    
    test2 = ActiveCell.Offset(1, 0).Range("A1:F1").Select
    
    
    Range("E26").Select
    
    ActiveCell.FormulaR1C1 = test1
    
    ActiveCell.Offset(0, 1).Range("A1:F1").FormulaR1C1 = test1

    ActiveCell.Offset(1, 0).Range("A1:F1").FormulaR1C1 = test2
    
    
End Sub

 

[Wigi]

Ga toch maar verder in het Array-verhaal: hier staat uitleg en wat voorbeelden.

 

[Wigi]

Loop ook eens door de code op http://www.wimgielis.be/ > Excel > VBA-code > Van plaats wisselen.

Wigi