jeg ved ikke om du kan bruge det til noget, men denne VBA-funktion søger i alle ark undtaget den, funktionen skrives i.
Indsæt den i et alm. modul.
bruges sådan
=vlookup_allsheets(Søgeværdi;område; kolonne til højre)
=vlookup_allsheets(C1;A1:B10; 2)
Function Vlookup_AllSheets(opslag, matrix As Range, kol)
Dim ws As Worksheet
Dim StartArk As String
Dim x As Long
Dim var As Variant
StartArk = ActiveSheet.Name
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> StartArk Then
var = ws.Range(matrix.Address)
For x = 1 To UBound(var, 1)
If var(x, 1) = opslag Then
Vlookup_AllSheets = var(x, kol)
Exit Function
End If
Next
End If
Next
End Function