Zoeken in Exceldocument meet meerdere TABS

[Wigi]

Ow...

Da's nou jammer.
Wil je me daar bij helpen a.u.b. daar weet ik helemaal niets van namelijk.

Het lijkt amper wat code, maar het opstellen was niet zo simpel
En dat op een vrijdagavond om 23u15 :shocked:
Anyway, hier heb je het.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet, foundcell As Range
    If Not Intersect(Target, Range("A3:A20")) Is Nothing Then
        For Each ws In Workbooks("artikel.xls").Worksheets
            On Error Resume Next
            Set foundcell = ws.Columns("A").Find(Target, lookat:=xlWhole, LookIn:=xlValues)
        Next
        Target.Offset(, 1) = foundcell.Offset(, 4)
    End If
End Sub

Klik rechts op de bladtab van het blad "Nieuw" in het bestand "ZoekenInTabbladen". Plak de code in het witte scherm. Vul nu een nieuw artikel in.

Wigi