Range lokale variable toekennen

[Marcel01041972]

Allen,

Na wat gepuzzel lukt het me om een range te laten selecteren, Hoe kan ik deze range nou bijv. myEarea noemen? Dit kan niet moeilijk zijn maar waarschijnlijk ga ik bij g=het begin al mis: Dim myEarea as Range

 

[ReneDirks]

Ik neem aan dat dit betrekking heeft op Excel VBA?
Hoe je de variabele noemt heeft niets te maken met hoe excel een range noemt, dit doe je met

ActiveWorkbook.Names.Add "Test", , , , , , , , , "R1C1:R3C3"
'of 
ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:="=Sheet1!R1C1:R3C1"

je kunt ook een reeks als variabele hebben, en dan toekennen aan een naam

Dim myRange as Range 
myRange = Sheet1.Cells(3, 3)
ActiveWorkbook.Names.Add "Test1", MyRange

 

[Marcel01041972]

Dank je voor je antwoord maar dit lukt me niet?!

Dim myRange as Range

myRange = Range(Cells(myRow1,myCol1):Cells(myRow2,myCol2)).select

Hier krijg ik een fout melding op? terwijl dit wel het juiste gebied selecteerd.

Range(Cells(myRow1,myCol1):Cells(myRow2,myCol2)).select

 

[ReneDirks]

myRange = Range(Cells(myRow1,myCol1):Cells(myRow2,myCol2)).select

Die syntax gaat inderdaad niet goedkomen zo! Probeer dit eens:

Dim myRange As Range
Dim myRow1, myCol1, myRow2, myCol2 As Integer
Dim ws As Worksheet
myRow1 = 1
myCol1 = 1
myRow2 = 3
myCol2 = 3

Set ws = ActiveSheet
With ws
    Set myRange = ws.Range(ws.Cells(myRow1, myCol1), .Cells(myRow2, myCol2))
    myRange.Select
End With

 

[etri]

Dank je voor je antwoord maar dit lukt me niet?!

Dim myRange as Range

myRange = Range(Cells(myRow1,myCol1):Cells(myRow2,myCol2)).select

Hier krijg ik een fout melding op? terwijl dit wel het juiste gebied selecteerd.

Range(Cells(myRow1,myCol1):Cells(myRow2,myCol2)).select

Dit kan wel maar niet direct:

Dim myRange as Range

Range(Cells(myRow1,myCol1):Cells(myRow2,myCol2)).select
Set myRange = ActiveWindow.RangeSelection