Naam van waarde

[SiCe]

Kan ik in een werkblad de cel in kolom D van een willekeurige rij de naam geven van de waarde welke in cel A van diezelfde rij staat. Als er geen waarde ingevuld is in A moet D geen naam krijgen.

 

[Wigi]

Hello

Zoiets?

If Range("A" & ActiveCell.Row) <> "" Then
Range("D" & ActiveCell.Row) = Range("A" & ActiveCell.Row)
Else: Range("D" & ActiveCell.Row) = ""
End If

Wigi

 

[SiCe]

Nee Wigi, dit is niet wat ik bedoel. Nu wordt de waarde uit kolom A in kolom D geplaatst maar ik bedoel dat de cel in kolom D een naam krijgt, gelijk aan de waarde in kolom A.
Bijkomend probleem is dat de waarde in kolom A een getal is en er in de naam dus een letter voorgeplaatst moet worden. Bij voorkeur de P

 

[Wigi]

Ah OK

zo dan:

Sub ZetnaamkolA()
If ActiveCell.Column <> 4 Then
    MsgBox "Selecteer een cel in kolom D."
Else
    ActiveWorkbook.Names.Add Name:="PP" & Range("A" & ActiveCell.Row), _
        RefersToR1C1:=ActiveCell
End If
End Sub

Ik heb PP genomen in plaats van P, aangezien P met een getal een mogelijke cel is. En dat wil Excel niet hebben.

Wigi