Vraag over zoeken in Excel

[RBL16]

Beste helpers,


ik heb zelf weinig verstand van excel,
Nu wou ik een soort van zoek functie maken,
ik wou dan in E17 en E19 een bepaald aantal pks in willen voeren blad 1.
waarna Excel gaat zoeken in de rij 8 in alle tabbladden (Vermogen bij nominaal toerental (ECE R 120)1)
maar ik zit met het probleem dat ik kw/pk in een cel heb staan, (het liefste laat ik dat gewoon zo staan)
en dat hij dan zegt van in blad die en die staan de goede pks.
ik heb al op internet gezocht maar het word me niet echt duidelijk hoe of ik dit moet toepassen.

ik hoop daarom dat jullie me kunnen helpen

https://www.wetransfer.com/download...e1242c34432c2e4c04d412220151101145203/617b43#

 

[VenA]

Hoe moet de uitkomst eruit komen te zien?

en dat hij dan zegt van in blad die en die staan de goede pks.

is wel erg cryptisch. Volgens mij is dit alleen met VBA op te lossen.

 

[RBL16]

dat hij de blad namen oid er neerzet of op een andere simpele manier.
maar zoals ik al zei ik weet niet veel van excel

 

[sylvester-ponte]

kun je je bestandje ook hier plaatsen? (ipv via wetransfer)

 

[HSV]

Het resultaat komt in kolom L.
Met een extraatje op model in kolom M.
Ik heb wel het plaatje verwijderd om het bestand te verkleinen.

Je mag de code ook nog aanpassen naar onderstaande.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, j As Long, sn, arr, sq, n As Long
Blad1.Columns("L:M").ClearContents
sn = Blad2.Cells(3, 3).CurrentRegion
ReDim arr(UBound(sn) * Sheets.Count, 1)
For Each sh In Sheets
  If sh.CodeName <> "Blad1" Then
  sn = sh.Cells(3, 3).CurrentRegion
    For j = 3 To UBound(sn, 2)
      If sn(6, j) <> "" Then
       sq = Split(sn(6, j), "/")(1)
            If CLng(sq) >= Blad1.Cells(17, 5) And CLng(sq) <= Blad1.Cells(19, 5) Then
               arr(n, 0) = sh.Name
               arr(n, 1) = sn(1, j)
                         n = n + 1
             End If
       End If
    Next j
  End If
 Next sh
Blad1.Cells(1, 12).Resize(n, 2) = arr
End Sub

 

[Timshel]

Iets met een tabel met voorwaardelijke opmaak: