Horizontaal en verticaal zoeken met verschillende voorwaar en (tab)bladeren

[wimski]

Hallo,
Mijn kennis van excel is te beperkt wie kan mij hiermee helpen.!!

Ik ben een map aan het maken met verschillende bladen (tab) met gegevens.

In één map:
Eerste bald een tabel met zoekfunctie die moet zoeken in de volgende (tab) bladeren volgens 4 waardes.
Ik ben geraakt tot in blad 1 eerste kolom maar daar loop ik vast.
(Met horizontaal en verticaal zoeken in het ROOD)
Zoek nu raad om deze formule uit te bouwen dat deze in alle (tab) bladeren gaat zoeken en om seizoen (IN HET GEEL)
Bekijk bijlage voorbeeld Helpmij.xls

Wie kan mij helpen?

 

[popipipo]

Met behulp van de indirect formule is het gelukt.
Echter wel de tabbladennamen van spatie ontdaan, dit om de formule eenvoudiger te houden.

 

[wimski]

Hallo popipipo

Niet normaal werkt ook nog.

Heb wel een vraagje, als ik een tabblad wil bijvoegen kan ik dat zo maar doen en past de formule zich aan?

of wwar vind ik deze uitleg is mischien al eens gevraagd op deze site?
gr

 

[popipipo]

als ik een tabblad wil bijvoegen kan ik dat zo maar doen en past de formule zich aan?

Bijna wel, maar ja dat is het zelfde als helemaal niet

Je zult elk zoekbereik alleen een naam moeten geven.
Zie CTRL F3 voor de namen

Het bereik B7:H30 van blad1 heb ik de naam 'blad1zomer' gegeven.
Zo zijn er dus 4 (4 bladen) maal 4 (4 seizoenen) = 16 namen voor 16 verschillende bereiken.

De naam komt overeen met het begin van de formule: INDIRECT(F$5&F$7)

Denk er goed aan dat de namen van het blad en bereik exact overeen moeten komen zonder spaties

 

[HSV]

Of met een macro.

Heb voor het uploaden even Blad 4 verwijderd.
Hierbij maakt het niet uit hoeveel bladen je aanmaakt.

Sub tst()
Dim iWS, i As Integer, rij As Variant, kol As Variant

iWS = Sheets("Tabel").Range("F5").Value
 For i = 7 To 13
 
Select Case Sheets("tabel").Range("F7").Value
    
    Case "ZOMER"
    kol = Sheets(iWS).Range("B6:H6").Find(Sheets("Tabel").Cells(i, 3)).Column
    rij = Sheets(iWS).Range("A1:A30").Find(Sheets("Tabel").[D5].Value).Row
    Cells(i, 4) = Sheets(iWS).Cells(rij, kol)

    Case "HERFST"
    kol = Sheets(iWS).Range("I6:O6").Find(Sheets("Tabel").Cells(i, 3)).Column
    rij = Sheets(iWS).Range("A1:A30").Find(Sheets("Tabel").[D5].Value).Row
    Cells(i, 4) = Sheets(iWS).Cells(rij, kol)

    Case "WINTER"
    kol = Sheets(iWS).Range("P6:V6").Find(Sheets("Tabel").Cells(i, 3)).Column
    rij = Sheets(iWS).Range("A1:A30").Find(Sheets("Tabel").[D5].Value).Row
    Cells(i, 4) = Sheets(iWS).Cells(rij, kol)
    
    Case "LENTE"
    kol = Sheets(iWS).Range("W6:AC6").Find(Sheets("Tabel").Cells(i, 3)).Column
    rij = Sheets(iWS).Range("A1:A30").Find(Sheets("Tabel").[D5].Value).Row
    Cells(i, 4) = Sheets(iWS).Cells(rij, kol)
  
  End Select
 Next
End Sub

 

[wimski]

Hallo,

bedankt!!!!

Was mij nooit gelukt
gr