Opslag i referencetabel - fremhævning af celle

Forslag:
- Gennemgå den lille tabel rækkervis
- Søg i den store tabel med værdien fra kol A
- Hvis fundet - marker den store tabel i kol E

Navngiv lille tabel fx xlist
Marker E2:E500  i stor tabel's ark
Indsæt =TÆL.HVIS(xlist;A2) i betinget formatering
Vælg format
ok

Const storTabStart = 1          'tilpasses
Const storTabSlut = 10          '-"-

Const lilleTabStart = 12        '-"-
Const lilleTabSlut = 15          '-"-
Sub test()
Dim storeTabRæk
    For ræk = lilleTabStart To lilleTabSlut
        storeTabRæk = søgIstoreTab(Cells(ræk, 1))
        If storeTabRæk > 0 Then
            Cells(storeTabRæk, 5).Select
           
            With Selection.Interior
                .ColorIndex = 1
            End With
            Selection.Font.ColorIndex = 2
        End If
    Next ræk
End Sub
Private Function søgIstoreTab(vA)
    With Range("A" & CStr(storTabStart) & ":A" + CStr(storTabSlut))
        Set c = .Find(vA, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            række = c.Row
        Else
            række = 0
        End If
    End With
   
    søgIstoreTab = række
End Function

ups det var : Marker E2:E4500  i stor tabel's ark

Excelent: Elegant forslag, men jeg fik ikke med, at lille_liste ligger i en anden projektmappe - og så kan man ikke lave betinget formatering med fjernreferencer?!?

Supertekst: Din ser meget lovende ud, men hvordan får jeg den til at "se", at de to tabeller findes i hver sin projektmappe?

Jeg tænkte det nok :-) - men det kan nok også klares...

Version 2:

Rem Koden anbringes i "Lille TABEL"
Rem *******************************

Dim storXLS
Rem ================= Tilpasses
Const storArk = "Ark1"
Const storSti = "C:\Documents and Settings\pb\Skrivebord\x_2108\storTabel.xls"
Const storTabStart = 1
Const storTabSlut = 10
Rem ==================

Rem ==================
Const lilleTabStart = 1
Const lilleTabSlut = 4
Rem ==================
Sub udførMarkeringAfStorTabel()
Dim storeTabRæk
    Set storXLS = CreateObject("Excel.application")
    With storXLS
        .Workbooks.Open storSti
    End With
   
    For ræk = lilleTabStart To lilleTabSlut
        storeTabRæk = søgIstoreTab(Cells(ræk, 1))
        If storeTabRæk > 0 Then
            storXLS.Sheets(storArk).Cells(storeTabRæk, 5).Select
           
            With storXLS.Selection
                .Interior.ColorIndex = 1
                .Font.ColorIndex = 2
            End With
        End If
    Next ræk
   
Rem luk "den store"
    storXLS.Application.DisplayAlerts = False
    storXLS.Save
    storXLS.Application.Quit
    Set storXLS = Nothing
   
    MsgBox ("Markering afsluttet")
End Sub
Private Function søgIstoreTab(vA)
    With storXLS.Range("A" & CStr(storTabStart) & ":A" + CStr(storTabSlut))
        Set c = .Find(vA, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            række = c.Row
        Else
            række = 0
        End If
    End With
   
    søgIstoreTab = række
End Function

Supertekst: Det virker bare helt perfekt - og rimeligt hurtigt endda! Smid et svar, pointene er dine!

Fint & tak

Velbekomme! ;-D