Een benoemd bereik verwijderen met vba (met voorbeeld)

U kunt de volgende syntaxis in VBA gebruiken om benoemde bereiken uit een Excel-werkmap te verwijderen:

 Sub DeleteNamedRanges()
 
Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names
    If NamedRange.Visible Then NamedRange.Delete
Next NamedRange

End Sub

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Benoemde bereiken in een Excel-werkmap verwijderen met VBA

Stel dat we een Excel-werkmap hebben met de volgende drie benoemde bereiken:

• Een benoemd bereik met de naam blad1_naam in Blad1
• Een benoemd bereik met de naam blad2_naam in Blad2
• Een benoemd bereik met de naam blad3_naam in Blad3

Om elk van deze benoemde bereiken te zien, klikt u eenvoudigweg op de vervolgkeuzepijl in het vak Naam in de linkerbovenhoek van het werkblad:

Stel dat we elk van deze benoemde bereiken willen verwijderen.

We kunnen hiervoor de volgende macro maken:

 Sub DeleteNamedRanges()
 
Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names
    If NamedRange.Visible Then NamedRange.Delete
Next NamedRange

End Sub

Zodra deze macro is uitgevoerd, worden alle benoemde bereiken in de gehele werkmap verwijderd.

We kunnen verifiëren dat ze zijn verwijderd door opnieuw op het vak Naam in de linkerbovenhoek van een van de bladen te klikken:

We kunnen zien dat het vak Naam niet langer de namen van de benoemde bereiken bevat.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe waarden alleen te plakken zonder opmaak
VBA: zichtbare lijnen naar een ander blad kopiëren
VBA: kopieer rijen naar een ander blad op basis van criteria