formule voor het opzoeken van een waarde en de waarde van de cel erboven weergeven

[promoboy]

Ik zoek een formule om een bepaalde text te zoeken in een kolom en de waarde van de cel erboven weer te geven en de waarde onder de cel op te splitsen in 6 onder elkaar staande cellen

Ik krijg op een tabblad "lottowebgegevens" de gegevens van de lotto via een website binnen
ik moet op zoek naar de celwaarde "lotto logo" en dien de waarde van de cel erboven (zijnde de datum) op een ander tabblad weer te geven

de cel onder lotto logo bevat de 6 cijfers van de trekking
deze moeten in de 6 cellen verdeeld worden onder de datum

een voorbeeld bestand is toegevoegd
Bekijk bijlage test.xlsx

alvast bedankt

 

[popipipo]

=INDEX(lottowebgegevens!A:A;MATCH("lotto logo";lottowebgegevens!A1:A200;0)-1)

Met deze formule vind je de datum

=INDEX(lottowebgegevens!A:A;MATCH("lotto logo";lottowebgegevens!A1:A200;0)+1)

Met deze formule vind je de lotto getallen.
Kan er alleen niet uitkomen om deze met formules te splitsen

 

[promoboy]

=INDEX(lottowebgegevens!A:A;MATCH("lotto logo";lottowebgegevens!A1:A200;0)-1)

Met deze formule vind je de datum

=INDEX(lottowebgegevens!A:A;MATCH("lotto logo";lottowebgegevens!A1:A200;0)+1)

Met deze formule vind je de lotto getallen.
Kan er alleen niet uitkomen om deze met formules te splitsen

heb de formule aangepast naar

=INDEX(lottowebgegevens!A:A;VERGELIJKEN("lotto logo";lottowebgegevens!A1:A200;0)-1)

en dan werkt het idd correct voor de datum
alvast bedankt daarvoor

nu nog het opsplitsen van de cel

 

[HSV]

Gelieve niet citeren indien niet nodig.

Met een macrootje.

Sub hsv()
Dim c As Range
With Sheets("Input")
 Set c = Sheets("lottowebgegevens").Columns(1).Find("lotto logo")
   If Not c Is Nothing Then
     .Range("a1") = c.Offset(-1)
     .Range("A2").Resize(7) = Application.Transpose(Split(c.Offset(1)))
   End If
 End With
End Sub

 

[rebmog]

Of met een formule.
Als de getallen met de functie van Popipipo in D1 staan wordt het:

=ALS.FOUT(SPATIES.WISSEN(DEEL(D$1;VIND.SPEC("_";SUBSTITUEREN(D$1;" ";"_";RIJ(A1)))-2;2));LINKS(D$1;1))

De complete formule zonder hulpcel D1 wordt dan:

=ALS.FOUT(SPATIES.WISSEN(DEEL(INDEX(lottowebgegevens!A$1:A$200;VERGELIJKEN("lotto logo";lottowebgegevens!A$1:A$200;0)+1);VIND.SPEC("_";SUBSTITUEREN(INDEX(lottowebgegevens!A$1:A$200;VERGELIJKEN("lotto logo";lottowebgegevens!A$1:A$200;0)+1);" ";"_";RIJ(A1)))-2;2));LINKS(INDEX(lottowebgegevens!A$1:A$200;VERGELIJKEN("lotto logo";lottowebgegevens!A$1:A$200;0)+1);1))

 

[HSV]

Of:
Verwijder de samenvoeging van de cellen.
matrixformule in A2 en doorvoeren.

 =SUBSTITUEREN(DEEL(SUBSTITUEREN(INDEX(lottowebgegevens!A:A;VERGELIJKEN("lotto logo";lottowebgegevens!A:A;0)+1);" ";"-");(RIJ()-1)+SOM(LENGTE(ALS(ISGETAL(WAARDE($A$1:A1));$A$1:A1;"")));2);"-";"")

 

[promoboy]

Bedankt werkt perfect nu