Notifikationer

Markér alle som læst Log ud

contici Nybegynder

17. april 2013 - 13:07 Der er 10 kommentarer

VBA: Indlæsning af værdi fra et Named Range

Hej,

Jeg er ved at blive sindsyg over noget:

Jeg har lavet et named range, ved navn antal_mapninger_tpf, dette tæller antal ikke-tomme i et range: =TÆLV(Lister!$I$6:$I$103)

Resultatet af denne tælling giver fx 17.

Dette vil jeg gerne indlæse i VBA, altså jeg vil gerne indlæse værdien 17 i VBA. Men hvordan?

Har prøvet:
n=thisworkbook.range("antal_mapninger_tpf").value (n bliver lig "=COUNTA(Lister!$I$6:$I$103)")

Har prøvet:
n = Range("Antal_mapninger_TPF").Value (virker slet ikke)

Der må da være en løsning?

Synes godt om

store-morten Ekspert

17. april 2013 - 16:01 #1

Måske:
n = Worksheets("Lister").Range("I6:I103").Cells.SpecialCells(xlCellTypeConstants).Count

Synes godt om

store-morten Ekspert

17. april 2013 - 16:04 #2

Eller måske:
n = Range("antal_mapninger_tpf").Value

Synes godt om

contici Nybegynder

17. april 2013 - 16:27 #3

Hej Store-Morten,

Dit første forslag har jeg ikke forsøgt, men vil bruge det navnet antal_mapninger_tpf.

Nr 2 forslag virker ikke.

Synes godt om

store-morten Ekspert

17. april 2013 - 16:33 #4

"antal_mapninger_tpf" er det ikke en navn-givet celle med formlen: =TÆLV(Lister!$I$6:$I$103) ?

Synes godt om

kabbak Professor

17. april 2013 - 19:04 #5

Dim N As long
N = val(Range("antal_mapninger_tpf"))

Synes godt om

contici Nybegynder

18. april 2013 - 08:47 #6

@Store-Morten: Nej. antal_mapninger_tpf er et navngivent navn som har formlen =TÆLV(Lister!$I$6:$I$103). Det er ikke en celle med førnævnte formel som jeg så har refereret til med antal_mapninger_tpf.

@kabbak: Virker desværre ikke. Den siger "Runtime error 1004: Method 'Range' of object 'Global' failes.

Synes godt om

store-morten Ekspert

18. april 2013 - 08:59 #7

Det forstår jeg ikke.
har du prøvet #1

Synes godt om

natkatten Mester

18. april 2013 - 11:32 #8

#1 virker, idet det navngivne område defineres i VBA-koden. Spørgsmålet er, hvordan en dynamisk værdi i en navngivning foretaget igennem Excel's navnestyring hentes? Jeg har ikke et bud herpå, men det udelukker bestemt ikke, at det kan lade sig gøre!

Synes godt om

natkatten Mester

18. april 2013 - 11:36 #9

Denne virker også, men er heller ikke løsningen på spørgsmålet:

Dim n As Long
n = Application.WorksheetFunction.CountA(Sheets("Lister").Range("$I$6:$I$103"))

Synes godt om

store-morten Ekspert

18. april 2013 - 16:01 #10

Forslag:
Brug navngivet område og VBA beregning.

Navn: "antal_mapninger_tpf"
Refererer til: =Lister!$I$6:$I$103

Og:
n = Worksheets("Lister").Range("antal_mapninger_tpf").Cells.SpecialCells(xlCellTypeConstants).Count

Eller:
n = Application.WorksheetFunction.CountA(Sheets("Lister").Range("antal_mapninger_tpf"))

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel	9	23/09/202618:11	24/09/202611:16
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS