Waarden van cellen in specifieke locaties uit grote data-file halen

[willem29]

Hallo allemaal,

Ik ben bezig met een erg grote data file en daaruit wil ik de gegevens halen die voor mij interessant zijn. Het is me opgevallen dat de data die ik wil hebben steeds op een bepaalde plek staan t.o.v. een bepaalde waarde in de eerste kolom (zie bijgaande file voor een vereenvoudigd voorbeeld. De waarde t.o.v. waarvan andere data altijd staan is dus "Query" (in het rood)).
Ik zou nu graag willen dat Excel gaat zoeken naar die waarde in de eerste kolom en dan de data uit de verschillende cellen ophaalt en dan zoekt naar de volgende waarde in de eerste kolom en daar dan weer de waarden uit de verschillende cellen haalt... Klinkt een beetje vaag maar met het voorbeeld van de output-file wordt het denk ik wel eenvoudiger).
Zelf kom ik hier niet uit... Ben benieuwd of iemand kan helpen!

Alvast bedankt!

 

[Wigi]

De ouput komt op Blad2 (of verander dit in de code):

Sub gegevensophalen()

    Dim lTeller As Long
    Dim lAantal As Long
    
    Application.ScreenUpdating = False
    For lTeller = 1 To Range("A" & Rows.Count).End(xlUp).Row
    
        If Range("A" & lTeller).Value = "Query" Then
        
            lAantal = lAantal + 1
            
            With Sheets("Blad2").Range("A1")
            
                .Offset(lAantal, 0).Value = Range("C" & lTeller - 1).Value
                .Offset(lAantal, 1).Value = Range("D" & lTeller + 1).Value
                .Offset(lAantal, 2).Value = Range("B" & lTeller + 3).Value
                .Offset(lAantal, 3).Value = Range("E" & lTeller + 4).Value
            
            End With
        
        End If
    
    Next

    Application.ScreenUpdating = True

End Sub

Wigi

 

[Roncancio]

Dat is een kwestie van een macro.
In je bestand heb ik de macro aangebracht.
De gegevens worden in een nieuwe werkblad geplaatst.

Met vriendelijke groet,


Roncancio

 

[willem29]

Heel erg bedankt! Ik ga er mee aan de slag!