Hoe de volgende vrije cel in een kolom te bepalen met behulp van een macro
In veel macro's moeten gegevens continu worden toegevoegd. Dan is het noodzakelijk om de volgende cel in een kolom te bepalen waar u gegevens kunt invoeren. U kunt dit oplossen met behulp van een Excel-formule.
Als u echter de laatste cel in een macro wilt bepalen, hebt u VBA-opdrachten nodig. Er zijn verschillende benaderingen om het probleem op te lossen. Hier is een geschikte macro:
Sub zoekenFreeCell ()
Dim cel als bereik
Dim Maxzeile As Long
If Val (Links (Application.Version, 2))> 11 Dan
Max lijn = 1048576
Anders
Max lijn = 65536
Stop als
Cel instellen = Cellen (Maxzeile, 1) .End (xlUp) .Offset (1, 0)
MsgBox "De volgende vrije cel is" & cel.Adres (False, False)
Einde sub
Eenmaal gestart, bepaalt de macro de volgende vrije, ongebruikte cel in kolom A. Het adres van deze cel wordt weergegeven in een venster.
De macro adresseert de laatste rij in kolom A van de actieve tabel en bepaalt van daaruit de laatst gebruikte cel hierboven. Om ervoor te zorgen dat de macro zowel in Excel tot versie 2003 als in Excel vanaf versie 2007 werkt, wordt aan het begin een passend onderscheid gemaakt tussen gevallen. Dit casusonderscheid is nodig omdat het aantal beschikbare lijnen met versie 2007 is toegenomen van 65536 naar 1048576.
Als u de vrije cel in een kolom wilt vinden in plaats van de vrije cel in kolom A, vervangt u het eerste cijfer 1 tussen haakjes na het commando Cellen door het nummer van de corresponderende kolom.
Tip: Als u wilt weten hoe u macro's in Excel invoert en start, vindt u hier een korte beschrijving: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
