Hoe kopieert u een kolom op basis van een celwaarde naar een ander werkblad?

Wanneer u werkt met gegevens die zijn verdeeld over kolommen met datumkoppen, komt het vaak voor dat u een volledige kolom uit een werkblad moet halen en naar een ander werkblad kopiëren—maar alleen de kolom die overeenkomt met een specifieke datumwaarde die elders in uw werkmap is ingevoerd. Stel bijvoorbeeld dat u in Blad1 een tabel hebt waarbij elke kolomkop een andere datum vertegenwoordigt, en dat u in Blad2!A1 een doeldatum invoert. U wilt dan automatisch of eenvoudig de volledige kolom van Blad1 kopiëren waarvan de kop overeenkomt met de datum in Blad2!A1, en deze plakken in Blad3—zoals hieronder is geïllustreerd. Dit is een typische uitdaging bij het vergelijken van dagelijkse statistieken, het beheren van planningen of het extraheren van tijdspecifieke gegevens voor rapportages.

---

Kolom kopiëren naar een ander werkblad op basis van celwaarde met formule

De functies INDEX en VERGELIJKEN van Excel bieden een efficiënte manier om een hele kolom op te halen uit een brondocument op basis van een specifieke kopwaarde die in een ander werkblad wordt gerefereerd. Deze methode is vooral handig wanneer u wilt dat de gegevens automatisch worden bijgewerkt zodra de celwaarde verandert — waardoor handmatige aanpassingen of herhaaldelijk kopiëren en plakken overbodig worden.

1. Selecteer de cel in het doelwerkblad waar u de kolomwaarden wilt plakken. Klik bijvoorbeeld op Blad3!A1. Voer daarna de volgende formule in:

=INDEX(Sheet1!$A1:$E1,MATCH(Sheet2!$A$1,Sheet1!$A$1:$E$1,0))

Druk op Enterom de formule toe te passen en sleep vervolgens de vulgreep naar beneden zo ver als nodig (meestal tot de rijen die overeenkomen met de Gegevensbereik in)Blad1). U zult merken dat nullen kunnen verschijnen op de plek waar het gegevensbereik eindigt.

2. Verwijder of filter indien nodig de resulterende lege cellen om uw geëxtraheerde kolom op te schonen.

Opmerking: In deze formule is Blad2!A1 de cel met de opzoekdatum, terwijl Blad1!A1:E1 het bereik van koppen is dat moet worden gecontroleerd. Pas deze verwijzingen aan op basis van uw werkelijke gegevensindeling en bereikgrootte. Als uw gegevenstabel groter is, breidt u het bereik dienovereenkomstig uit. Als uw gegevens lege cellen bevatten, ziet u mogelijk nullen in de uitvoer; overweeg dan filters of IF.FOUT-logica toe te passen voor schonere resultaten.

---

VBA-code – Automatisch kolom kopiëren naar een ander werkblad op basis van celwaarde

Als u deze kolomextractietaak vaak uitvoert of liever een oplossing gebruikt die geen formules of handmatige acties vereist telkens wanneer de doeldatum verandert, kunt u een eenvoudige VBA-macro gebruiken. Dit script identificeert in Blad1 de kolom die overeenkomt met de datum in Blad2!A1 en kopieert de gehele kolom direct naar Blad3. Deze methode is ideaal voor het automatiseren van herhaalde workflows of het verwerken van dynamische gegevensstructuren.

Waarschuwingen: Zorg er altijd voor dat u uw werk hebt opgeslagen voordat u macro’s uitvoert. Macro’s kunnen niet ongedaan worden gemaakt, en foutieve verwijzingen kunnen gegevens naar onbedoelde locaties kopiëren.

1. Druk op Alt + F11 om de Visual Basic for Applications-editor te openen. Klik in het VBA-venster op Invoegen > Module en plak de volgende code in de lege module:

Sub CopyColumnByDate()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lookupSheet As Worksheet
    Dim matchDate As Variant
    Dim lastRow As Long
    Dim colNum As Long
    Dim headerRange As Range
    Dim cell As Range
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set wsSource = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet3")
    Set lookupSheet = Worksheets("Sheet2")
    matchDate = lookupSheet.Range("A1").Value
    
    Set headerRange = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column))
    colNum = 0
    
    For Each cell In headerRange
        If cell.Value = matchDate Then
            colNum = cell.Column
            Exit For
        End If
    Next cell
    
    If colNum > 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colNum).End(xlUp).Row
        wsDest.Range("A1").Resize(lastRow, 1).Value = wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Value
        MsgBox "Data copied to Sheet3 column A!", vbInformation, "KutoolsforExcel"
    Else
        MsgBox "No matching header found.", vbExclamation, "KutoolsforExcel"
    End If
End Sub

2. Sluit de VBA-editor. Druk in Excel op Alt + F8, selecteer KopieerKolomOpDatum en klik vervolgens op Uitvoeren. Uw gegevens uit de kolom met de overeenkomende datum in Blad1 worden gekopieerd naar kolom A van Blad3.

Tip: Als uw koppen beginnen in een andere rij dan rij 1, pas dan de rijverwijzingen in de code aan. Wilt u de gegevens in een andere startkolom plakken? Wijzig dan Bereik("A1") dienovereenkomstig. Gebruikt u dezelfde macro vaak? Wijs deze dan toe aan een knop voor gemakkelijke toegang!

Mogelijke fouten: Als u het bericht „Geen overeenkomende kop gevonden” ontvangt, controleer dan of de datum in Blad2!A1 exact overeenkomt met de datumnotatie in de koprij van Blad1.

---

Andere ingebouwde Excel-methoden – Filter gebruiken om kolom te isoleren en kopiëren

De ingebouwde Filter-functie van Excel helpt u ook om een kolom te isoleren en te kopiëren zonder formules of macro’s te gebruiken. Deze handmatige methode is ideaal voor incidentele, eenmalige taken of voor gebruikers die zich ongemakkelijk voelen bij functies of scripts.

1. Ga naar Blad1 en selecteer de koprij (bijvoorbeeld rij 1). Klik op Gegevens > Filter om dropdownmenu’s aan elke kolomkop toe te voegen.

2. Klik op de pijl van het filterdropdownmenu in de koprij en schakel alle kolommen uit, behalve de datum die overeenkomt met Blad2!A1. Als er veel datums zijn, gebruik dan het zoekvak in het filtermenu om de juiste datumwaarde snel te vinden.

3. Selecteer de zichtbare kolom onder de bijbehorende kop. Druk op Ctrl + C om te kopiëren.

4. Ga naar Blad3 en klik op uw gewenste startcel (bijv. A1). Druk vervolgens op Ctrl + V om te plakken.

Opmerkingen: De filtermethode is volledig handmatig en wordt niet automatisch bijgewerkt als de datum in Blad2!A1 verandert. Deze aanpak is ideaal voor ad-hoc gegevensextracties en snelle controles waarbij automatisering niet nodig is.

Voordelen: Geen formules of codering vereist – ideaal voor snelle, visuele taken.
Nadelen: Arbeidsintensief bij veelvuldig herhalen; foutgevoelig als u niet zorgvuldig kolommen selecteert.

---