Valideren met item toevoegen

[popipipo]

Ik heb een bestandje waarbij je via datavalidatie ook een item kunt toevoegen.
In voorbeeldje zie je 2 van die lijstjes.

Het lijkt mij dat de VBA eenvoudiger kan zeker als er bv 3 of 4 of nog meer van deze lijstjes in één tabblad zitten.

 

[Cobbe]

Je kan ook weg zonder herhalingen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim naam As Variant
Dim kol As Integer
If Not Intersect(Target, Range("g1,I1")) Is Nothing Then
 If Not Intersect(Target, [G1]) Is Nothing Then kol = 3 Else kol = 1
 With Sheets(1)
  Set naam = .Columns(kol).Find(Target.Value)
   If naam Is Nothing Then
    If MsgBox("Wil je deze naam toevoegen", vbExclamation + vbYesNo, "Let goed op!!") = vbYes Then
      .Cells(.Rows.Count, kol).End(xlUp).Offset(1) = Target.Value
    End If
   End If
End With
End If

End Sub

 

[popipipo]

Je kan ook weg zonder herhalingen:

Dat dacht ik ook al , vandaar mijn vraag.

Bedankt voor de code