Automatisch waardes verwijderen bij ingeven van nieuwe data

[geertsjelle]

Hallo allemaal,

Ik heb een sheet waarin de verschillende fases van een project bij houden bijgehouden doormiddel van een matrix.
Wat ik graag zou willen (en me tot op heden niet gelukt is) is dat ik waneer in de matrix de fase verander door middel van een "x" in de matrix het oude "x" in de matrix automatisch word verwijderd.

Voor de duidelijkheid heb ik een voorbeeld sheet gemaakt waarin in duidelijk maak wat ik probeer te doen (zie bijlage).
Volgens mij moet dit mogelijk in VB maar ik krijg het niet voor elkaar.

Weet iemand hoe dit moet?

------------------

Jelle

 

[HSV]

Private Sub Worksheet_selectionChange(ByVal Target As Range)
     Dim xBereik As Range
      For Each xBereik In Worksheets(1).Range("D6:K30")
        Select Case xBereik.Value
          Case Is = "x"
            Range("D" & Target.Row & ":K" & Target.Row).ClearContents
          End Select
      Next
 End Sub

Maar misschien is onderstaande beter.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereik
If Not Intersect(Target, Range("D6:K30")) Is Nothing Then
 Set bereik = Range("D" & Target.Row & ":K" & Target.Row)
If WorksheetFunction.CountIf(bereik, "x") > 1 Then
'Range("D" & Target.Row & ":K" & Target.Row).ClearContents
bereik.Clearcontents
Target.Value = "x"
End If
End If
End Sub

En kun je de validatielijst verwijderen.

 

[geertsjelle]

Het werkt, enorm bedankt!

HVS,

Het werkt:thumb:

Enorm bedankt voor de VBA code!

------------

Jelle

 

[HSV]

Graag gedaan Jelle,

Met negenenzestig geplaatste berichten vergeet je het vast niet de vraag als opgelost te zetten.

 

[geertsjelle]

Helemaal vergeten

(Ik wilde gelijk de code proberen en ben het helemaal vergeten)

---------------

Jelle