Zoeken naar cell en dan andere cell updaten

[bspeedy]

Hallo,

Ik ben van het weekeinde nog flink verder gegaan met mn excel lijst en VBA. Ik loop echter tegen problemen aan met het zoeken naar een waarde in een cell.

Ik wil dus een waarde in kolom A zoeken. Stel deze staat in A5, dan wil ik een andere waarde die in J5 staat veranderen in een andere waarde. Dit zal een getal zijn. Standaard staat de Cell op 0 en elke keer als ik op de command button click, moet deze geupdate worden.

Private Sub CommandButton1_Click()
    Cells.Select
    Selection.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    [b]Sheets("Data").Range("J").Select[/b]
    ActiveCell = Value + 1
End Sub

Dit is mijn huidige code. Hij loopt echter vast op het bold gedeelte.

Hoe kan ik zorgen dat ik de cel in J5 (die dus correspondeerd met de waarde die ik op geef bij de zoekopdracht, kan wijzigen?

Alvast bedant

 

[bspeedy]

Met veel prullen is mij al het volgende gelukt:

    Dim SearchString

    SearchString = TextBox1.Value

    With Sheets("Data").Range("B:B")
    Set f = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
            If Not f Is Nothing Then
                f.Offset(, 8) = value + 1
              End If
        End With

Nu is het probleem: Die value + 1 wijzigt de cell alleen maar in 1. Hoe kan ik hier bij elke keer dat ik met de zoekfunctie op de cell uitkom, deze cell optellen? Zodat als ik de volgende keer zoek op die term, de cell 8 cellen verder op met 1 verhoogd wordt?

 

[Wigi]

f.Offset(, 8).Value = f.Offset(, 8).value + 1

Wigi

 

[bspeedy]

Top man! Nu werkt ie als een trein