Cel leegmaken als andere cel wijzigt

[HJ25]

Hoe kan ik er voor zorgen dat wanneer ik in cel A1 en B1 iets heb staan en cel A1 wijzigt dat cel B1 leeggemaakt wordt? Ik heb op internet onderstaande VBA gevonden maar deze werkt niet. Iemand een idee?

Public oudeTekst As String

Private Sub Worksheet_Activate()
oudeTekst = Worksheets("Sheet1").Cells(1, 1)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Sheet1").Cells(1, 1) <> oudeTekst Then

oudeTekst = Worksheets("Sheet1").Cells(1, 1)
Worksheets("Sheet1").Cells(1, 2).ClearContents

End If

End Sub

 

[Cobbe]

Die code werkt wel:
[CODE]
Private Sub Worksheet_Activate()
 oudeTekst = Worksheets(1).Cells(1, 1)
 End Sub

 Private Sub Worksheet_Change(ByVal Target As Range)
  With Worksheets(1)
     If .Cells(1, 1) <> oudeTekst Then
      oudeTekst = .Cells(1, 1)
        .Cells(1, 2).ClearContents
     End If
  End With
 End Sub

Maar dit :

Public oudeTekst As String

moet in een module staan.

 

[HJ25]

Bij de Code kan je als de cel leeggemaakt is niet meer opnieuw gegevens invullen... Verder werkt hij goed!

Ow en hoe zit dat precies met het aangeven welke cel het is? Er staat nu steeds Cells(1, 1). Is de eerste 1 dan de rij of de kolom?

Aanvulling: ik kan natuurlijk ook het antwoord dat je in mijn andere vraag gaf gebruiken! Bedankt! (Ik zou nog wel graag willen weten hoe dat met dat "Cells(1, 1)" zit.)