Hoe maakt u een lijst met identieke cellen uit meerdere werkbladen in Excel?

Met de volgende VBA-code maakt u eenvoudig een lijst op basis van de opgegeven cellen uit meerdere werkbladen. Volg deze stappen:

Stap 1: Selecteer de cel waaruit u uw lijst wilt maken. In ons voorbeeld kiezen we cel E6.

Stap 2: Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik op Invoegen > Module en plak vervolgens de volgende code in het modulevenster.

VBA: Maak een lijst van dezelfde cellen uit meerdere bladen

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Stap 3: Druk op de toets F5 of klik op de knop Uitvoeren om deze VBA uit te voeren.

Vervolgens worden alle waarden uit de opgegeven cel op elk werkblad gekopieerd naar een nieuw werkblad met de naam KutoolsforExcel. Zie de schermafbeelding hieronder:

Deze VBA-code vult de lijst in een nieuw werkblad, en de waarden in de lijst zijn statisch — ze worden niet bijgewerkt als de oorspronkelijke waarden veranderen.

Soms wilt u echter de lijst invullen binnen een beperkt bereik en ervoor zorgen dat de lijstwaarden altijd overeenkomen met de oorspronkelijke waarden in de opgegeven cellen. Om aan deze behoeften te voldoen, kunt u de volgende methode toepassen.

Deze methode maakt gebruik van het hulpprogramma Kutools voor Excel’s functie Automatisch werkbladverwijzingen verhogen om een dynamische lijst te maken van dezelfde cellen uit meerdere werkbladen.

Stap 1: Selecteer het bereik waarin u de dynamische lijst wilt invullen en klik op Kutools > Meer > Automatisch werkbladverwijzingen verhogen.

Stap 2: In het geopende dialoogvenster Vul werkbladverwijzingen,

(1) Klik op het vak Vulvolgorde en selecteer een vultype in de keuzelijst. In ons voorbeeld kiezen we Vullen per kolom, dan per rij.

(2) Voer in het vak Vulformule het celadres in waaruit u een dynamische lijst wilt maken en klik vervolgens op de knop Vergrendelen om de formule te vergrendelen.

(3) Klik op de knop Bereik vullen.

Nu ziet u dat de waarden uit de opgegeven cellen op alle werkbladen zijn ingevuld in de Beperkt bereik, zoals in de onderstaande schermafbeelding wordt weergegeven:

Wanneer de oorspronkelijke waarden wijzigen, worden de bijbehorende waarden in deze opgegeven lijst automatisch bijgewerkt.

Hoe vult u automatisch dezelfde cel van meerdere werkbladen in één enkel werkblad in Excel?