Opgelost Lege cel

[xbox360]

Hoi,

ik heb een klein vraagje

ik heb een bereik van A3 Tot A30

nu staat er in cel A3 een naam die hij met een formule zoekt in een tabblad
nu is de vraag als er in B3 een andere naam komt te staan is het dan mogelijk dat A3 leeg wordt gemaakt?

heb het met voorwaardelijk opmaak geprobeerd om de naam doorhalen te doen maar dan is de inhoud nog gevuld

en heb gezocht of het misschien met een vba kon maar helaas nergens kunnen vinden

alvast weer super bedankt

 

[AlexCEL]

Beetje geknutseld.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngZoek As Range
    Dim celGevonden As Range

    ' Reageer alleen op wijziging in A6
    If Target.Address <> "$A$6" Then Exit Sub
    If Target.Value = "" Then Exit Sub

    Application.EnableEvents = False

    ' Zoekbereik
    Set rngZoek = Sheets("zoeken").Range("A1:A30")

    ' Zoeken
    Set celGevonden = rngZoek.Find(What:=Target.Value, LookAt:=xlWhole)

    If Not celGevonden Is Nothing Then
        Me.Range("B6").Value = celGevonden.Offset(0, 1).Value
    Else
        Me.Range("B6").Value = "Niet gevonden"
    End If

    ' A6 leegmaken
    Target.ClearContents

    Application.EnableEvents = True

End Sub

 

[emields]

de cel leegmaken zonder de formule te verwijderen gaat niet tenzij dat de cel waar deinhoud vandaan komt mag leeggemaakt worden.

 

[Mde]

Je zou Font kleur kunnen aanpassen zodat deze niet leesbaar is, als de cel niet echt leeg hoeft te zijn.