• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

variabel bereik benoemen

Status
Niet open voor verdere reacties.

Peer44

Gebruiker
Lid geworden
25 jan 2008
Berichten
224
Hallo,

ik ben opzoek naar de vba code om een bereik te benoemen in excel.
de eerste regel bevat kolomkoppen, het bereik moet altijd beginnen in cel A2 de laatste kolom is altijd kolom BL

De laatste regel is variabel, dit is afhankelijk van een export vanuit access.
de laatste ingevulde regel is het einde van het bereik.

hoe kan ik in vba dit bereik selecteren en vervolgens een naam geven?

dit benoemd bereik wordt vervolgens na bewerking weer ingelezen in access.

daarna wordt deze procedure weer opnieuw gedaan dus moet het bereik weer opnieuw worden bepaald.

Kan iemand mij verder helpen?

alvast bedankt.
 
Peer

Waarom moet dit via VBA?

Je kunt ook een dynamisch bereik een naam geven met de volgende formule :
Code:
=VERSCHUIVING(Blad1!$A$1;1;0;AANTALARG(Blad1!$A:$A)-1;64)
 

Bijlagen

De bedoeling is om het bereik in een access tabel in te lezen.
als ik nu vanuit access het excelwerkblad --> benoemd bereik wil inlezen zie ik geen bereik....

wat doe ik nog fout?
 
Peer,

In Excel 2007 onder "Formules" > "Namen beheren" staat het bereik gedefinieerd.

Ik het het "Benoemd_bereik"genoemd. Maar dat kan gewijzigd worden.

Als je in mijn voorbeeldbestand sta probere dan eens CTR G ( ga naar) en type dan Benoemd_bereik.

Je zult zien dat dan alles van af A2 tot en met BL19 geselecteerd wordt.
 
Gerard, heb je gelijk in, als het type dan laat hij precies dat bereik zien.

In access is geen bereik bekend, en excel zelf ook niet via de dropdown linksboven bij de celbenamingen.
 
Gerard, heb nog wat geprobeerd, blijkt dat ik het bereik wel vanuit VBA kan aanroepen;
Code:
Sub bereik()

Sheets("blad1").Range("benoemd_bereik").Select
Selection.Copy

Sheets("blad3").Select
Range("A2").Select
ActiveSheet.Paste


End Sub

hier ga ik op verder borduren, bedankt voor de formule
 
Peer,

Dat is mooi.
Zou je dan de vraag als opgelost kunnen markeren ?
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan