Udvidet brug af betinget formatering, (med makro?)

Indsæt denne i arket kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
If Target = 1 Then Range("A1").Formula = "=B1"
End Sub

Hvornår skal betingelsen indtræffe. Når du taster i A1 eller i C2?

Denne kode gør,. at når du taster i A1 vil den undersøge hvade der står i C2 og enten beholde din indtastning eller sætte den til det, der står i B1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Range("c2").Value = 0 Then
        Target.Value = Target.Value
    Else
        Target.Value = Range("b1").Value
    End If
End If
End Sub

Denne kode virker, når du taster i C2. Tadter du 0 tømmes A1, så du selv kan taste. Taster du 1 skrives værdien fra B1.

Men hverken min eller Excelents løsning forhindrer dig i at tyaste noget i A1 selv om detr står 1 i C2.

Hvis der skal tages højde for dette, så prøv denne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C2") = 1 Then Range("A1").Formula = "=B1"
End Sub

Tak for jeres hurtige respons.

Har ikke haft tid til at se på jeres hjælp endnu, desværre.

Skriver tilbage senest mandag.

Tak for det.

Betingelsen skal meget gerne kunne indtræffe hver gang c2 skifter til celleværdien 1, således celle a1 vil blive overskrevet, hvis c2 ændrer sig til værdien 1.

Hvis derimod c2 skifter til celleværdien 0, skal celle A1 slette teksten fra celle b1, så der kan blive plads til, at jeg selv kan skrive i cellen.

Hvis ikke arket kan "opdatere" sig selv, kan man så i givet fald lave noget i stil med "F9-knappen", hvor man laver en ny simulering, så hvis jeg trykker på f.eks. F9-knappen, så vil cellerne blive opdateret??

Hej igen.

Med andre ord har jeg brug for det samme, som jeg kan med funktionen betinget formatering, men istedet for kun at kunne ændre farve og skrift mv, skal cellen kunne vise en anden celles indhold, når betingelsen er opfyldt samtidig med, at der kan skrives i cellen, når betingelsen ikke er opfyldt.

Håber, I kan hjælpe!

På forhånd tak.
Mvest.