LOPSLAG i makro - hvordan

Hej

Jeg har en kalender hvor jeg har et felt med bemærkninger til hver dag.
Hvis der ikke manuelt er tastet noget ind i feltet ønsker jeg i stedet at der enten skal være en formel med et: '=HVIS(ER.IKKE.TILGÆNGELIG(LOPSLAG' eller måske lidt nemmere værdien fra en anden celle der indeholder dette opslag.

Eks.
Faneblad: Januar
(Dato)
A1=1/1 B1=LOpslag el værdi af c1
A2=2/1 B2=LOpslag el værdi af c2

Jeg skal kunne skrive en tekst i B1 eks. 'Fødselsdag'
hvis jeg senere fortryder og sletter 'Fødselsdag' skal B1 igen indeholde 'LOpslag' eller værdi af c1

Store-Morten har tidligere givet mig god hjælp med et lignede spørgsmål. Her var det bare en ren tekst der skulle stå i feltet.
Jeg har prøvet at genbruge svaret:

---klip---
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1, A2")) Is Nothing Then
If Range("A1") = "" Then Range("A1") = "Dit navn"
If Range("A2") = "" Then Range("A2") = "Dit efternavn"
End If
End Sub
---klip---

men kan desværre ikke få det til at virke.



- Kim