Hoe wis je de inhoud van een benoemd bereik in Excel?
Deze handleiding laat zien hoe u de inhoud van een specifiek benoemd bereik of van alle benoemde bereiken in een actief werkblad in Excel eenvoudig kunt wissen. Met VBA behoudt u de benoemde bereiken terwijl u hun inhoud efficiënt verwijdert.
Inhoud van een benoemd bereik wissen met VBA-code
Inhoud van een benoemd bereik wissen met VBA-code
Volg deze stappen om de inhoud van een specifiek benoemd bereik of van alle benoemde bereiken in het huidige werkblad te wissen.
1. Ga naar het werkblad met het benoemde bereik waarvan u de inhoud wilt wissen en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de volgende VBA-code naar het codevenster.
Gebruik de onderstaande VBA-code om de inhoud van een specifiek benoemd bereik in het werkblad te wissen.
VBA-code 1: Inhoud van een specifiek benoemd bereik wissen in Excel
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub3. Druk op de toets F5 om de code uit te voeren.
4. Er verschijnt dan een Kutools voor Excel-dialoogvenster. Voer de naam in van het benoemde bereik waarvan u de inhoud wilt wissen en klik op de knop OK. Zie de schermafbeelding:
Alle inhoud in de cellen van het opgegeven benoemde bereik wordt direct gewist.
Gebruik de volgende VBA-code om de inhoud van alle benoemde bereiken op het actieve werkblad te wissen.
VBA-code 2: Inhoud van alle benoemde bereiken in het Huidig werkblad wissen in Excel
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub3. Druk op de toets F5 om de code uit te voeren en klik vervolgens op de knop OK in het Kutools voor Excel-dialoogvenster, zoals hieronder weergegeven.
Vervolgens wordt de inhoud van alle benoemde bereiken uit het huidige werkblad gewist.
Gerelateerde artikelen:
- Hoe wis je de inhoud van een keuzelijst met VBA-code in Excel?
- Hoe wis je tegelijkertijd inhoud en opmaak in cellen in Excel?
- Hoe verwijdert u beperkte waarden uit cellen in Excel?
- Hoe wist u de inhoud van opgegeven cellen wanneer de waarde van een andere cel in Excel verandert?
- Hoe wist u de inhoud van opgegeven cellen automatisch bij het openen en sluiten van een Excel-werkboek?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins