Sådan bestemmes den næste frie celle i en kolonne ved hjælp af en makro
I mange makroer skal data tilføjes løbende. Derefter er det nødvendigt at bestemme den næste celle i en kolonne, hvor du kan indtaste data. Du kan løse dette ved hjælp af en Excel -formel.
Men hvis du vil bestemme den sidste celle i en makro, har du brug for VBA -kommandoer. Der er flere måder at løse problemet på. Her er en passende makro:
Sub SearchFreeCell ()
Dim celle som rækkevidde
Dim Maxzeile så længe
Hvis Val (Venstre (Application.Version, 2))> 11 Herefter
Maks. Linje = 1048576
Andet
Max linje = 65536
Afslut Hvis
Indstil celle = celler (Maxzeile, 1). Afslut (xlUp). Forskydning (1, 0)
MsgBox "Den næste frie celle er" & cell.Address (Falsk, Falsk)
Afslut Sub
Når den er startet, bestemmer makroen den næste ledige, ubrugte celle i kolonne A. Adressen til denne celle vises i et vindue.
Makroen adresserer den sidste række i kolonne A i den aktive tabel og bestemmer derfra den sidste celle, der blev brugt ovenfor. For at makroen kan fungere i Excel op til version 2003 såvel som i Excel fra version 2007, foretages en passende sagsdifferentiering i begyndelsen. Denne sonderskel er nødvendig, fordi antallet af tilgængelige linjer er steget med version 2007 fra 65536 til 1048576.
Hvis du vil finde den frie celle i en kolonne i stedet for den frie celle i kolonne A, skal du erstatte det første nummer 1 i parentes efter kommandoen Celler med nummeret på den tilsvarende kolonne.
Tip: Hvis du gerne vil vide, hvordan du indtaster og starter makroer i Excel, finder du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html