Hoe controleer ik of een bepaalde bereiknaam bestaat in Excel?
Voordat u een VBA-script uitvoert, moet u mogelijk controleren of een benoemd bereik bestaat in de huidige werkmap. De VBA-code in dit artikel kan u helpen om snel te controleren of een bepaalde bereiknaam in Excel bestaat.
Controleer of een bepaalde bereiknaam bestaat met VBA-code
Controleer of een bepaalde bereiknaam bestaat met VBA-code
U kunt de onderstaande VBA-code uitvoeren om snel te controleren of een bepaalde bereiknaam in de huidige werkmap bestaat.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het venster.
VBA-code: controleer of een bepaald bereik bestaat in Excel
Sub CheckRanges()
Dim chkRange As Range
Dim areasName(2) As String
Dim chkCnt As Long
Dim i As Integer
areasName(0) = "new"
areasName(1) = "MyRange"
areasName(2) = "Range2"
Application.ScreenUpdating = False
For i = 0 To 2
On Error Resume Next
chkCnt = Len(ThisWorkbook.Names(areasName(i)).Name)
On Error GoTo 0
If chkCnt <> 0 Then
Set chkRange = Range(areasName(i))
MsgBox "This Range: '" & areasName(i) & "' DOES exist!", vbInformation, "Kutools for Excel"
chkCnt = 0
Else
MsgBox "This Range: '" & areasName(i) & "' does NOT exist!", vbInformation, "Kutools for Excel"
End If
Next i
Application.ScreenUpdating = True
End Sub
Opmerkingen:
3. druk de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel dialoogvensters verschijnen om u te vertellen of de opgegeven bereiknaam bestaat of niet, klik op de OK knoppen om de dialoogvensters te sluiten. Zie screenshot:
Gerelateerde artikelen:
- Hoe controleer ik of het eerste teken in een cel een letter of cijfer is in Excel?
- Hoe controleer ik of een celwaarde zich tussen twee waarden in Excel bevindt?
- Hoe te controleren of een cel begint of eindigt met een specifiek teken in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!