Om de gegevens van het huidige celbereik volledig over te zetten naar een nieuwe tabel, moet u weten hoe groot het gebruikte cellenbereik rond de actieve cel is. Of u kunt Excel dit voor u laten doen en de g . kopiëren
Wilt u automatisch alle cellen uit een aaneengesloten reeks cellen in een macro kopiëren? Dit is vooral handig als u flexibel wilt reageren op invoer van gebruikers en niet weet hoe groot de ingevoerde gegevensgebieden zijn.
U kunt een macro gebruiken om deze taak uit te voeren. De macro bepaalt alle cellen rond de actieve cel en kopieert precies deze cellen naar een nieuwe werkmap.
De volgende afbeelding toont een tabel met drie verschillende gegevensgebieden. Ze zijn voorzien van een kleurcode om ze gemakkelijker te kunnen zien.
Alle cellen die verbinding maken met aangrenzende cellen zonder lege cellen, worden geacht bij elkaar te horen.
Met een geschikte macro kunt u ervoor zorgen dat na het klikken op een cel in een celbereik, alle cellen die erbij horen, worden gekopieerd naar een nieuwe tabel. Hier is de juiste programmacode:
Subkopie huidig gebied ()
Dim brongebied Als bereik
Dim NewSheet als werkblad
Stel brongebied = ActiveCell.CurrentRegion in
Stel NeuesBlatt = Workbooks.Add.Worksheets (1) in
Brongebied.Bestemming kopiëren: = NeuesBlatt.Range ("A1")
Einde sub
Klik voordat u de macro aanroept op een cel in een tabel. De macro bepaalt alle cellen die samen met de geselecteerde cel tot een bereik behoren en kopieert dit gegevensbereik naar een nieuwe, lege werkmap. De volgende afbeelding laat zien hoe het resultaat eruitziet na het aanroepen van de macro als cel E9 in de tabel uit de eerste afbeelding is geselecteerd voordat de macro start.
Om de macro in te voeren, drukt u op ALT F11 in Excel om de VBA-editor te openen. Selecteer de opdracht INSERT - MODULE in de VBA-editor en voer de macro in. Activeer de toetsencombinatie ALT F8 in Excel om de macro te starten. De twee sneltoetsen voor het starten van de VBA-editor en de macro werken in alle versies van Excel.
