Notifikationer

Markér alle som læst Log ud

geertf Nybegynder

28. oktober 2003 - 12:30 Der er 2 kommentarer og
1 løsning

Referance til en celle

I et regneark tester jeg om bestemte celler har en bestemte værdier, hvis ikke bliver man promtet. Min Msgbox ser således ud:
MsgBox("Celle " & cell.Address & " er ikke udfyldt, vil du fortsætte alligevel?", vbYesNo)
Msgbox'en skriver cellereferancen som absolut (fx "$D$4"). Cellen har jeg givet et navn ("Kvartal") og det jeg vil spørger om er, er det muligt at Msgbox'en retunerer navnet på cellen i stedet for addressen. Alternativt kan man få returneret uden $-tegn?

Synes godt om

stefanfuglsang Juniormester

28. oktober 2003 - 12:55 #1

Denne sub kan finde navnet på en celle:
Makroen derunder viser hvordan den kaldes:
Sub getname(Cell, CellName)
Dim n As name
For Each n In ActiveWorkbook.Names
If Cell.Address = n.RefersToRange.Address Then
Exit For
End If
Next
CellName = n.name
End Sub
Sub getit()
Dim n As String
Call getname(Range("a1"), n)
MsgBox n
End Sub

Synes godt om

stefanfuglsang Juniormester

28. oktober 2003 - 12:57 #2

og her er den forberede udgave, der returnerer adressen uden $, hvis cellen ikke har et navn:
Sub getname(Cell, CellName)
Dim n As name
On Error GoTo ex
For Each n In ActiveWorkbook.Names
If Cell.Address = n.RefersToRange.Address Then
Exit For
End If
Next
CellName = n.name
Exit Sub
ex:
CellName = Replace(Cell.Address, "$", "")
End Sub

Synes godt om

geertf Nybegynder

28. oktober 2003 - 15:19 #3

Jeps! Menge tak for det.

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
Flytte fra et projekt til andet Af hkprofil i Excel	1	11/11/202612:17	11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel	5	11/11/202609:23	I går 13:07
Måned og år på graf Af mort1 i Excel	4	31/10/202613:01	01/11/202614:13
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

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