Een range selecteren met een variabele (VBA)

[Antonisse40]

Goedemiddag,

ik wil graag een range selecteren waarbij gebruik wordt gemaakt van een waarde in een variabele in VBA.

Een regel als Range("A1000:C1000") wil ik vervangen waarbij op de plek waar nu 1000 staat de waarde van de variabele Counter moet komen te staan. Hoe moet ik dit oppakken met de " en & tekens?

Alvast hartelijk dank!

Groet,
D.P. Antonisse

 

[HSV]

Range(("A" & Range("A1").Value) & " :C" & Range("A1").Value).Select

Met in cel A1 het rijnummer.

 

[Warme bakkertje]

Range("A" & Counter & ":C" & Counter)

 

[HSV]

Range("A" & Counter & ":C" & Counter)

Hallo Rudie,

Ik begin er een beetje mee te oefenen (VBA).
Die manier van jouw moet zoals in onderstaand?

Dim Counter As Integer
Counter = [A1].Value
range("A" & Counter & ":C" & Counter).Select

Ik geraak een beetje uitgekeken op de verticaal zoeken ed., en wil mijn horizon iets verbreden.

 

[Wigi]

Hallo Rudie,

Ik begin er een beetje mee te oefenen (VBA).
Die manier van jouw moet zoals in onderstaand?

Dim Counter As Integer
Counter = [A1].Value
range("A" & Counter & ":C" & Counter).Select

Ik geraak een beetje uitgekeken op de verticaal zoeken ed., en wil mijn horizon iets verbreden.

OK, maar een Integer is beperkt tot 32000 en nog wat, een Long variabele kan hogere getallen aan.

 

[HSV]

OK, maar een Integer is beperkt tot 32000 en nog wat, een Long variabele kan hogere getallen aan.

Hoi Wigi,

Ik heb het even getest natuurlijk, en kreeg gelijk een foutmelding bij Integer op 65000.
Met een Long heb je daar geen last van.
Het wordt tijd voor een VBA boek, krijg er aardigheid in.
Haal nu alles uit de Help, macrootje opnemen, kijken hoe één en ander benoemd wordt, en daar weer verder op zoeken.
Het houdt je mooi van de straat.

Bedankt voor de info.

 

[Antonisse40]

Heren,

het werkt bedankt!

Mag ik nog 1 vraagje stellen in dezelfde trend?

Ik heb onderstaande code:
Windows("23-02-10.xls").Activate
En ik heb een variabele Datum = "23-02-10"

Ik wil nu zoiets gebruiken als
Windows(" & Datum & .xls").Activate

Kunnen jullie mij de juiste code geven?

Hartelijk dank!

Groetjes,
D.P. Antonisse

 

[Warme bakkertje]

Windows(Datum & ".xls").Activate

Echter al naargelang je bedoeling en de opbouw van je macro is het vaak overbodig om een venster te activeren.

 

[Antonisse40]

Dit zocht ik, heel hartelijk dank!

Ik zal kijken of ik nog iets kan doen in de opbouw van mijn programma. Hartelijk dank voor het advies!

Vriendelijke groet,
D.P. Antonisse

 

[snb]

of

cells(1,1).resize(count,3)