Hjælp til excel

Hej,
Denne VBA kode checke rom der tastes et x eller et X i cellen A1 i Ark1. Hvis det er tilfældet hentes værdien af cellen B2 i Ark2.
Værdien af Ark2 B2 sættes til 0 hvis denne værdi overføres til Ark1

Koden skal indsættes under Ark1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If UCase(Range("A1").Value) = "X" Then
        Range("A1").Value = Sheets("Ark2").Range("B2").Value
        Sheets("Ark2").Range("B2").Value = 0
    End If
End Sub

Dit sidste ønske om at værdien skrives tilbage til B2 hvis A1 ændres igen er lidt sværer. Det vil kræve at den oprindelige værdi gemmes et eller andet sted.

Hilsen
Tue Hellstern
www.F1-support.dk