Excel VBA: Kolommen met gegevens tellen (2 voorbeelden)

Hugh West

16-10-2023 Macro's & Excel VBA
  • Deel Dit
Hugh West

Wanneer u een kleine gegevenstabel hebt met een paar kolommen, kunt u ze gemakkelijk allemaal tellen. Maar voor een grote gegevenstabel is het vrij moeilijk om alle kolommen foutloos te tellen. Bovendien kunnen sommige kolommen gegevens bevatten, terwijl andere kolommen helemaal leeg kunnen zijn. Dus het tellen van alle kolommen met gegevens in het geval van een grote gegevenstabel is vrij moeilijk. In dit artikel leert u 2 manieren om te tellenkolommen met gegevens met behulp van VBA in Excel met gemak.

Download Praktijk Werkboek

U kunt het Excel-bestand downloaden via de volgende link en ermee oefenen.

Kolommen tellen met gegevens.xlsm

2 Manieren om kolommen met gegevens te tellen met VBA in Excel

1. Alle kolommen in een werkblad met gegevens tellen met een eenvoudige VBA-code

We zien de 3 kolommen in de volgende gegevenstabel. Nu zullen we een VBA-code gebruiken om het aantal gebruikte kolommen in een enkel Excel-werkblad te bepalen.

❶ Druk eerst op ALT + F11 om de VBA-editor te openen.

❷ Maak daarna een nieuwe module van Invoegen> Module.

❸ Kopieer daarna het volgende VBA-script. 

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Het aantal kolommen met gegevens is: " & .Columns.Count End With End Sub

❹ Ga dan terug naar de VBA-editor en druk op CTRL + V om het te plakken.

❺ Sla nu de VBA-code op door op CTRL + S knop.

❻ Om de VBA-code uit te voeren, ga je naar de Ontwikkelaar tabblad en klik op Macro's Of druk gewoon op de F5 sleutel.

De Macro dialoogvenster verschijnt.

❼ U hoeft alleen maar te klikken op de Ren knop.

Nu zult u zien dat er een dialoogvenster is verschenen waarin staat dat het aantal kolommen met gegevens 3 is.

Lees meer: Hoe aantal kolommen tellen in Excel (3 eenvoudige methodes)

2. Tel alle kolommen in een bepaald bereik met gegevens met behulp van een Excel VBA-code

Met de volgende VBA-code kunt u alle kolommen met gegevens in een bepaald bereik tellen.

Om de code te gebruiken,

❶ Open eerst de VBA-editor door op ALT + F11.

❷ Ga dan naar Invoegen> Module om een nieuwe module te maken.

❸ Kopieer daarna het volgende VBA-script. 

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Totale kolom: " & xRng.Range("B5:D5").Columns.Count End Sub

❹ Ga terug naar de VBA-editor en druk op CTRL + V om het te plakken.

❺ Sla nu de code op door op CTRL + S.

❻ Ga naar de Ontwikkelaar tabblad en druk op de Macro's om de Macro raam.

Of druk gewoon op de F5 toets om de Macro dialoogvenster.

❼ Kies in het dialoogvenster de functienaam CountColumnsInARange en raakte de Ren knop.

Tenslotte verschijnt er een klein dialoogvenster dat zegt dat het totale aantal kolommen 3 is.

Lees meer: Kolommen tellen voor VLOOKUP in Excel (2 methoden)

Meer VBA-codes om kolommen te tellen in Excel

1. Gebruik de methode VBA Range.End om het laatst gebruikte kolomnummer te verkrijgen.

Om het laatst gebruikte kolomnummer in een Excel-spreadsheet te krijgen,

❶ Open eerst de VBA-editor door op ALT + F11.

❷ Ga dan naar Invoegen> Module om een nieuwe module te maken.

❸ Kopieer het volgende VBA code: 

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub

❹ Plak en bewaar de code in de VBA-editor.

❺ Druk op de F5 om de bovenstaande code uit te voeren.

U krijgt het laatste kolomnummer in een pop-up dialoogvenster zoals in de onderstaande afbeelding:

Lees meer: Kolommen tellen tot een waarde is bereikt in Excel

2. Gebruik de methode Range.Find om het laatst gebruikte kolomnummer in Excel terug te vinden.

Als u op zoek bent naar VBA-codes om het laatst gebruikte kolomnummer terug te geven, volg dan de onderstaande stappen:

❶ Druk eerst op ALT + F11 om de VBA-editor te openen.

❷ Maak daarna een nieuwe module van Invoegen> Module.

❸ Kopieer de volgende VBA-code: 

 Sub LastUsedColumnNo() Dim xRng Als Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub

❹ Ga dan terug naar de VBA-editor en druk op CTRL + V om het te plakken.

❺ Sla nu de VBA-code op door op CTRL + S knop.

Druk nu op de F5 om de bovenstaande code uit te voeren.

U krijgt het laatst gebruikte kolomnummer in een pop-up dialoogvenster zoals in de onderstaande afbeelding:

Dingen om te onthouden

  • Druk op ALT + F11 om de VBA-editor te openen.
  • U kunt op ALT + F8 om gebruik te maken van de Macro's dialoogvenster.
  • Om de VBA-code uit te voeren, drukt u op de F5.

Conclusie

Kortom, we hebben 2 manieren besproken om kolommen met gegevens te tellen met behulp van VBA in Excel. U wordt aanbevolen om de oefenwerkmap te downloaden die samen met dit artikel is toegevoegd en alle methoden daarmee te oefenen. En aarzel niet om vragen te stellen in de commentaarsectie hieronder. We zullen proberen zo snel mogelijk te reageren op alle relevante vragen. En bezoek onze website ExcelWIKI om meer te ontdekken.

Vorige post Vul tot de volgende waarde in Excel (5 eenvoudige methodes)
Volgende bericht Rijen groeperen op celwaarde in Excel (3 eenvoudige manieren)

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.