cel leeg na invullen van gegevens

[jvbaal]

Ik heb het volgende
Ik plaats in A1 een getal
Ik plaats soms in B1 een X

Kan het zo zijn dat ik in C1 een fomule plaats die ervoor zorgt dat cel A1 leeg gemaakt wordt als in B1 een X staat?

groetjes
Juul

 

[ExcelAmateur]

jvbaal,

Ik heb het wel zo voorelkaar gekregen.
Zet de code achter het blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("B1") = "X" Then Range("A1").Value = ""
End Sub

 

[jvbaal]

Hartelijk dank voor je hulp.

Maar hoe plaats ik de code achter het blad? Doe je dat met VBE?

Werkt dit dan voor 1 cel?

De bedoeling is namelijk dat ik dit op meerdere cellen toe moet passen.

groetjes
Juul

 

[ExcelAmateur]

jvbaal,

Maar hoe plaats ik de code achter het blad? Doe je dat met VBE?

Klik met links op de tab van het blad en kies voor Programmacode weergeven en plak de code daar.

Werkt dit dan voor 1 cel?

Ja dit is voor een cel.

De bedoeling is namelijk dat ik dit op meerdere cellen toe moet passen.

Waarom kon ik dit niet in je vraag vinden?

 

[ExcelAmateur]

jvbaal,

Ik ben hier geen specialist in maar het werkt hier in Office 2007

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  For Each cl In Range("B1:B10") 'Het bereik eventueel aanpassen
    If cl = "" Then GoTo 1
    If cl.Value = "X" Then
      cl.Offset(0, -1).Value = ""
    End If
1
  Next
End Sub

 

[jvbaal]

Ik heb de code geplakt en Dan?

groetjes
Juul

 

[ExcelAmateur]

Zet wat in A1 en dan een X in B1, kijk of dat is wat je wil.

 

[jvbaal]

Hartelijk dank, het klopt helemaal

groetjes
juul