leerlingAnneke
Nieuwe gebruiker
- Lid geworden
- 14 nov 2016
- Berichten
- 4
Voor het verticaal zoeken tussen 2 tabellen gebruik ik deze code:
For i = 2 To laatsteregelws4
If IsError(Application.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:A"), 1, False)) Then
Else
ws4.Range("B" & i).Value = WorksheetFunction.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:B"), 2, False)
ws4.Range("C" & i).Value = WorksheetFunction.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:H"), 8, False)
ws4.Range("M" & i).Value = WorksheetFunction.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:W"), 23, False)
End If
Next i
Dit werkt prima, maar wanneer de data wijzigt en er een kolom tussengevoegd moet worden moet ik alle codes gaan aanpassen. Kan ik in plaats van een verwijzing naar een kolomnummer een verwijzing maken naar een kolomnaam?
For i = 2 To laatsteregelws4
If IsError(Application.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:A"), 1, False)) Then
Else
ws4.Range("B" & i).Value = WorksheetFunction.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:B"), 2, False)
ws4.Range("C" & i).Value = WorksheetFunction.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:H"), 8, False)
ws4.Range("M" & i).Value = WorksheetFunction.VLookup(ws4.Range("A" & i).Value, ws2.Range("A:W"), 23, False)
End If
Next i
Dit werkt prima, maar wanneer de data wijzigt en er een kolom tussengevoegd moet worden moet ik alle codes gaan aanpassen. Kan ik in plaats van een verwijzing naar een kolomnummer een verwijzing maken naar een kolomnaam?