Celnaam weergeven in andere cel...

[Martijnn]

Hi all,

Ik heb voor cel A2 de naam gedefiniëerd als AFBEELDING.
Nu wil ik dat in cel B2 deze celnaam wordt weergegeven.

Ik dacht dat dit een simpel formuletje kon zijn, maar ik zit al een half uur op Google en ik kom er gewoon niet uit?!

Iemand hier een idee?

Thanks!

 

[Joost1978]

apostrof voor formule plaatsen geeft =celnaam

 

[Martijnn]

Cool!
Deze kan ik alleen niet doorvoeren

 

[edmoor]

Of deze UDF (User Defined Function):

Public Function CelNaam(cel As Range) As Variant
    Dim nm As Name
    Application.Volatile
    For Each nm In Names
        If nm.RefersTo = "=" & cel.Parent.Name & "!" & cel.Address Then
            CelNaam = nm.Name
            Exit Function
        End If
    Next
    CelNaam = CVErr(xlErrNA)
End Function

 

[Martijnn]

Thanks edmoor!

Deze functie kwam ik tijdens het zoeken ook ergens tegen, maar kreeg 'm niet aan de praat.

Wat voer ik dan in de cel in?

 

[edmoor]

Bijvoorbeeld: =CelNaam(A2)
De UDF moet je wel in een module plaatsen.

Eventueel mag je de regel Application.Volatile eruit laten.

 

[Martijnn]

Sweet, hij doet het.

Thanks!