Zoeken hier selecteren daar

[hypocama]

Beste,
Ik ben op zoek naar een makro welke zoekt in een kolom en een cel in een andere kolom selecteert en bovendien de overeenstemmende cellen inkleurt.
In het voorbeeld staat wat meer uitleg.
Bedankt alvast,
Hypocama

 

[Timshel]

Zoiets?

Sub Zoek()
    Dim zz
    Dim Cl As Range
    
    zz = InputBox("Geef een zoekwaarde op", "Zoek")
    Set Cl = Columns(1).Find(zz, LookAt:=xlWhole)
    If Not Cl Is Nothing And Not Cl.EntireRow.Hidden Then
        Cl.Resize(, 5).Interior.ColorIndex = 4
        Application.Goto Cl.Offset(, 4)
    End If
End Sub

 

[VenA]

Zoiets?

Sub VenA()
Set f = Sheets(1).Columns(1).SpecialCells(12).Find(InputBox("voer getal in"), , xlValues, xlWhole)
If Not f Is Nothing Then
    With Cells(f.Row, 1)
        .Resize(, 5).Interior.Color = vbRed
        .Offset(, 4).Select
    End With
End If
End Sub

Edit dezelfde gedachte als Timshel

 

[hypocama]

Bedankt voor de snelle reactie.
We zijn al een aardig stuk op we maar zijn er nog niet.
Bij de oplossing van VenA krijg ik de melding "Compileerfout: Een variabele is niet gedefinieerd"
De oplossing van Timshel komt al aardig in de buurt, alleen nog twee puntjes.
Als een volgende cel geselecteerd word dan zouden de vorig geselecteerde cellen terug zonder opvulling moeten komen.
Als op een nummer gezocht wordt welke zich in een verborgen rij bevindt dan zou een bericht moeten komen dat het betreffende nummer niet in gebruik is en dat er opnieuw kan gezocht worden.
Dank bij voorbaat,
Hypocama

 

[Timshel]

De foutmelding bij de code van VenA kun je opheffen door "option explicit" te verwijderen uit de code.
Anyway, zo denk ik:

Sub Zoek()
    Dim zz
    Dim Cl As Range
    
    zz = InputBox("Geef een zoekwaarde op", "Zoek")
    If zz = "" Then Exit Sub
    Set Cl = Columns(1).SpecialCells(2).Find(zz, LookAt:=xlWhole)
    If Cl Is Nothing Then GoTo Einde
    If Not Cl.EntireRow.Hidden Then
        Cl.CurrentRegion.Resize(, 5).Interior.ColorIndex = 0
        Cl.Resize(, 5).Interior.ColorIndex = 4
        Application.Goto Cl.Offset(, 4)
        Exit Sub
    End If
Einde:
    MsgBox "Het nummer is niet in gebruik.", vbCritical, "Jewetog"
End Sub