Avatar billede 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?
Avatar billede 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
Avatar billede 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
Avatar billede geertf Nybegynder
28. oktober 2003 - 15:19 #3
Jeps! Menge tak for det.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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