Variabele datum zoeken

[Rusty1979]

Ik heb hier een eenvoudig voorbeeld gemaakt van mijn probleem.
Ik heb op het tabblad Gegevens de kilo's staan van 24 september.
Hoe zoek ik deze verticaal op het tabblad Tabel in de juiste kolom?

Het script wat ik bedacht heb, heb ik voorzien van ? op de plekken waar ik niet weet wat ik er moet neerzetten:

Sub zoekdatum()
'Vul op het tabblad Tabel de kilo's bij de juiste datum
    Sheets("Tabel").Select
Do
       ActiveCell.Offset(1, 0).Select
      Loop Until ActiveCell.Value = "EINDE"
    Einde = ActiveCell.Row
     Range("?2:?" & Einde - 1).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(???)"
    Range("?2").Select
    Selection.Copy
    Range("?2:?" & Einde - 1).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Cells.Replace What:="#N/A", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

 

[Wigi]

Waarom gebruik je VBA-code als er ingebouwde functionaliteiten in Excel zitten om zoiets te doen? Bvb. een draaitabel.

Maak van de invoer een goede tabel, relationeel dus. Dan doet een draaitabel alle analyses zonder ook maar 1 formule of regel VBA-code.

Voorbeeld van een tabel, zie bijlage.

Wigi

 

[Rusty1979]

lange tabel

Bedankt voor je bijdrage.
Een tabel bijhouden is inderdaad een optie.
Alleen komen er dagelijks zo'n 500 regels bij, dus na 120 dagen is mijn excelblad al vol.

Maar goed, als het niet anders kan is dat idd een optie.

Ik wacht nog ff af of er reacties komen op de macro, of is het gewoonweg niet mogelijk?

 

[Wigi]

En heb je MS Access al overwogen. Per slot van rekening, Access is een programma voor databanken, en jij werkt met een, jawel, databank...