Ik heb twee tabbladen, hr_data_raw en hr_data_val
Ik probeer nu data(temperatuur) via VLookup van het eerste tabblad naar het tweede tabblad kopiëren op basis van datum en tijd. De data op het eerste tabblad (bron) is steeds anders, dat wordt namelijk met een query binnen gehaald. In dit geval staat er data vanaf 1 september in dat tabblad. De volgende maand oktober etc. Nu is het de bedoeling dat het tweede tabblad een jaaroverzicht gaat worden dat steeds gevuld moet worden met nieuwe data uit het eerste. Waarom ik dit doe is, omdat er in de bron af en toe een uur weg kan vallen of middels validatie leeg wordt gemaakt. Bij ontbrekende data in het eerste tabblad, moet op de plaats van dat ontbrekende uur in het tweede tabblad die cel leeg zijn.
Ik ben eens wat gaan stoeien met VLookup en heb het volgende:
Om het te proberen herhaal ik de opdracht even twee keer, later maak ik daar wel een lus van. Als je de code runt, zie je dat "Regel1" precies doet wat ik wil, maar "Regel2" geeft een fout.
Wat gaat hier mis?
Ik probeer nu data(temperatuur) via VLookup van het eerste tabblad naar het tweede tabblad kopiëren op basis van datum en tijd. De data op het eerste tabblad (bron) is steeds anders, dat wordt namelijk met een query binnen gehaald. In dit geval staat er data vanaf 1 september in dat tabblad. De volgende maand oktober etc. Nu is het de bedoeling dat het tweede tabblad een jaaroverzicht gaat worden dat steeds gevuld moet worden met nieuwe data uit het eerste. Waarom ik dit doe is, omdat er in de bron af en toe een uur weg kan vallen of middels validatie leeg wordt gemaakt. Bij ontbrekende data in het eerste tabblad, moet op de plaats van dat ontbrekende uur in het tweede tabblad die cel leeg zijn.
Ik ben eens wat gaan stoeien met VLookup en heb het volgende:
Code:
Public Sub Example1()
Dim Result As Variant
Dim LookUpValue As Range
Dim LookUpRange As Range
Set LookUpRange = Sheets("hr_data_raw").Range("A2:AV21")
''Regel 1
Set LookUpValue = Sheets("hr_data_val").Cells(2, 1)
Sheets("hr_data_val").Range("B2") = Application.WorksheetFunction.VLookup(LookUpValue.Value2, LookUpRange, 2, False)
''Regel2
Set LookUpValue = Sheets("hr_data_val").Cells(3, 1)
Sheets("hr_data_val").Range("B3") = Application.WorksheetFunction.VLookup(LookUpValue.Value2, LookUpRange, 2, False)
End Sub
Om het te proberen herhaal ik de opdracht even twee keer, later maak ik daar wel een lus van. Als je de code runt, zie je dat "Regel1" precies doet wat ik wil, maar "Regel2" geeft een fout.
Wat gaat hier mis?
Bijlagen
Laatst bewerkt: