Waar bevindt zich de selectie

[sjonnie1974]

Hallo,

Bijgevoegd een voorbeeld van hoe ik het zou willen.
uitleg: Ik klik op een ID (in kolom U) en dan wil ik kunnen zien waar dit ID zich bevindt. Dus eigenlijk een soort knop, die na aanklikken de ID's doet opkleuren.

Wie kan hier in VBA een oplossing voor me vinden?

 

[HSV]

In tabbladmodule Sjonnie.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, ftaddress As String
If Target.Column = 21 Then
With Columns(4)
   .Interior.ColorIndex = xlNone
 Set c = .Find(Target.Value, , xlValues, xlWhole)
  If Not c Is Nothing Then
          ftaddress = c.Address
Do
  c.Interior.ColorIndex = 6
    Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ftaddress
  Else: MsgBox "Niet gevonden"
     End If
   End With
 End If
Cancel = True
End Sub

 

[JeanPaul28]

sjonnie kan je hier iets mee

 

[sjonnie1974]

JeanPaul28

Dit ziet er top uit, alleen wanneer ik de VBA codes in wil plakken in mijn eigen exelletje, dan werkt het niet.
Kijk ik over iets heen of met ik enkel de hele "macro" overnemen en plakken?

 

[HSV]

Een snellere methode.

 

[sjonnie1974]

HSV,

Ziet er ook goed uit en kan ik overnemen, enkel het ID kan ook in de andere 3 kolommen voorkomen en daar kleurt hij niet op ?!

 

[JeanPaul28]

sjonnie heb je ook de naambereiken aangepast

 

[HSV]

Geen probleem.

 

[sjonnie1974]

JeanPaul28,

Ik kom best aardig mee hoor met VBA, maar ik weet niet wat je met naambereiken bedoelt en hoe ik deze aan moet passen

 

[sjonnie1974]

HSV,

TOP! precies wat ik bedoelde, ik zal dit lijntje sluiten!

knappe koppen!