cel vinden en voor die cel een verwijzing

[Jamez]

hallo,

Is het mogelijk om een formule te genereren, die vanuit A2 zoekt naar "x" in het bereik A10 t/m A20 en dan vervolgens de waarde uit cel A1 kopieert en deze in 1cel voor de gevonden "x" plaatst.

groeten Jamez

 

[Jan van Asseldonk]

Hiervoor heb je vba nodig.
Moet het altijd vanuit A2, dan kun je met een workbook_change event werken.
Bij een wijziging in A2 treed dan automatisch de macro in werking.

Een voorbeeldbestandje maakt de kans op een oplossing groter.

 

[Jamez]

okay,

zie bijlage, met hierin een uitleg


b.v.d.

jamez

 

[Jan van Asseldonk]

Probeer het eens met onderstaande macro.

Sub VervangEersteX()
'
Dim waarde As String
Dim rij As Integer
'
    Range("C3").Select
    While Not IsEmpty(ActiveCell)
        rij = ActiveCell.Row
        waarde = ActiveCell.Value
        Rows(rij).Select
        Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        ActiveCell.Replace What:="x", Replacement:=waarde, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Cells(rij, 3).Offset(1, 0).Select
     Wend
End Sub

Niet gekozen voor worksheet_change omdat dan telkens de volgende x ook vervangen wordt. Als je nu de macro voor de 2e keer draait, wordt de 2e x ook vervangen.
Zal dus nog wel enkele aanpassingen nodig hebben, maar wellicht zet dit je op het goede spoor.

 

[Jamez]

dank je Jan, hier kan ik wel wat mee!

Groeten

Jamez