22. april 2008 - 07:23Der er
2 kommentarer og 1 løsning
Navngivning af dataområde med VBA
Jeg tilretter via en makro et navngivet område "Milestones" i et ark der kalder "MilestonesArk"
i øjeblikket fungerer denne kode fint: ActiveWorkbook.Names.Add Name:="Milestones", RefersToR1C1:= _ "=MilestonesArk!R2C1:R" & LastRowNr & "C5"
Jeg vil dog gerne lave min kode om, så jeg bliver uafhængig af arkets navn. Andre steder retter jeg derfor Worksheets("MilestonesArk").Select til Worksheets(1).Select, men hvordan tilretter jeg det med navngivningen tilsvarende ?
Hvis princippet er det samme NAVNark - kan følgende måske inspirere:
Sub test2() Worksheets(2).Select arkNavn = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 3) opretNavn arkNavn End Sub Private Sub opretNavn(arkNavn) ActiveWorkbook.Names.Add Name:=arkNavn, RefersToR1C1:= _ "=arknavn!R2C1:R" & LastRowNr & "C5" End Sub
Ja, bortset fra at opretnavn skal rettes til ActiveWorkbook.Names.Add Name:=arkNavn, RefersToR1C1:= _ "=" & arkNavn & "!R2C1:R" & LastRowNr & "C5" så virker det skam fint
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.
