Een variabele een variabel bereik geven

[Dennisjuhh]

Beste Helpers,

Ik probeer het volgende te bereiken. Ik heb een uitgangspunt als range laten we zeggen cel A2. Vervolgens heb ik een variabele gedeclared als range. Nu wil ik dat deze variabele de waarde krijgt van het bereik van de cel erboven dus A1 met behulp van de Offset methode. Niet de waarde maar echt het bereik. Ik heb de volgende code:

Sub voorbeeld()

Dim VariabelBereik As Range

Range("A2").Select

VariabelBereik = ActiveCell.Offset(-1, 0)


End Sub

Maar ik krijg steeds een foutmelding. Iemand een idee?

Alvast bedankt!

 

[pasan]

VariabelBereik is geen range maar een waarde uit een range, tenminste in jou code
dit is genoeg

Sub voorbeeld_1()
 VariabelBereik = Worksheets("Blad1").Range("A2").Offset(-1, 0)
End Sub

of

Sub voorbeeld_2()
 VariabelBereik = [Blad1!A2].Offset(-1, 0)
End Sub

ahum dit is dus niet wat je bedoeld
ik moet echt beter opletten

 

[HSV]

set VariabelBereik = ActiveCell.Offset(-1, 0)
msgbox VariabelBereik.address

 

[Dennisjuhh]

Bedankt allebei! Ik probeer gewoon een variabele een bereikwaarde te geven. Ik wil deze variabele weer gaan gebruiken als uitgangspunt. Dus dat ik iets krijg van VariabeleBereik.Offset(1,0).

 

[HSV]

En dat werkt nu?

 

[Dennisjuhh]

Nog 1 vraagje even tussendoor, wat is het verschil tussen een variabele benoemen als

dim Voorbeeld1 as String
Voorbeel1 = Range("A1").Value

of

dim Voorbeeld1 as String
Set Voorbeeld1 = Range("A1").Value

Alvast bedankt!

 

[snb]

Ik denk dat het systematisch doornemen van een basisboek VBA je meer beidt dan losse vragen en dito antwoorden.