Bepaalde Range selecteren vanuit Array

[Thys0217]

Beste,

Ik heb een code geschreven waarbij selecties worden gemaakt afhankelijk van bepaalde voorwaarden. Het bereik van de verschillende selecties worden opgeslagen in een array. Het is de bedoeling dat de adressen op een later tijdstip in de macro kunnen worden uitgelezen en opnieuw te selecteren.
Hier loopt het echter fout. Ik krijg steeds volgende foutmelding Method 'Range' of object '_Global' failed en opject vereist. Ik vind niet meteen een oplossing of een duidelijke verklaring voor deze foutcode op het net.

Volgende VBA code is een simpistische versie van mij code en geeft dit probleem weer. Kan iemand mij vertellen wat ik verkeeerd doe? Alvast bedankt

Sub Selectie()
Dim Bereik As Range
Dim Myarray()
ReDim Myarray(5)
Range("A1").Select

For i = 1 To 5
    Myarray(i) = Selection.Address
    Selection.Offset(1, 0).Select
Next

For i = 1 To 5
    'MsgBox Myarray(i)
    Set Bereik = Myarray(i)
    Bereik.Select
Next

End Sub

 

[snb]

Gebruik svp code tags: # bij de iconen in het editorscherm

sub M_snb()
  sn=range("A1:A5")
end sub

In de array komen de waarden van de cellen te staan, geen verwijzing naar cellen. Die tweede lus in jouw code kan dus niet.
Begin eens met een basisboek VBA voor Excel. Dat helpt gegarandeerd. En wij kunnen je dan ook beter helpen.