cel automatisch vermeerderen

[gobelijn]

Hallo,

Ik heb een databank met in:

kolom 1 - de productcode
kolom 2 - het aantal
kolom 3 - de Rij-nummers | =Rij()

Ik zou graag door de productcode in cel D1 in te voegen, het overeenkomstige aantal met 1 vermeerderen.

Ik had volgende oplossing bedacht:

In cel E1 bereken ik met Vertikaal Zoeken de rij die overeenkomt met de in D1 ingegeven productcode.
Cel D2 gebruik ik als controleveld.
Hoewel E1 juist berekend wordt, gebeurt er niets als ik onderstaande VBA-code toepas (het aantal wordt niet vermeerderd en D2 blijft leeg).

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer

    If Target.Address = "$D$1" Then
    Set i = Range("E1").Value
    
        If Target.Value = Cells(i, 1).Value Then
        
            Cells(i, 3).Value = Cells(i, 3).Value + 1
            
        Else
        
            Range("D2").Value = "Productcode bestaat niet"       
        End If
    
    End If

End Sub

Wat doe ik precies verkeerd?

Alvast bedankt,

David

 

[HSV]

Verwijder "Set".

dim i as long
i = Range("E1").Value

 

[gobelijn]

Ik heb de code aangepast, maar er gebeurt jammer genoeg nog steeds niets...

Zijn er nog meer tips?

Thx,

David

 

[HSV]

Zoals het uploaden van je bestand met beschrijving wat je doet.