Benannten Bereich auf Gültigkeit prüfen

Hallo zusammen.
Immer mal wieder bekomme ich eine Excel-Tabelle, um daran weiterzuarbeiten. Oftmals das Problem, dass benannte Bereiche existieren, die sich nicht nur innerhalb der Tabelle, sondern auch auf externe Quellen referenzieren. Darunter befinden sich aber jede Menge schwarze Schafe. Ein #REF oder #BEZUG im Text zu finden ist noch einfach. Wenn es sich dann um externe Bezüge handelt, ist es schon schwieriger. Dann kommen noch die Konstanten dazu ...
Ich möchte nun ein kleines Makro schreiben, das mir die benannten Bereiche auf ihre Gültigkeit hin prüft und bei Bedarf dann löscht.
Gibt es eine Möglichkeit wie z.B. BenannterBereich.BistDuGültig oder BenannterBereich.GibtEsDeinZiel? Oder 'Zelle, du referenzierst auf den bennanten Bereich, sag mir, ob dein Inhalt kein Fehler ist'?
Besten Dank im Voraus
-Arthur

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Arthur,
du könntest dafür noch eine zweite Fehlerbehandlungsroutine einbauen, die dir sämtliche benannten Bereiche, die wegen ungültiger Namen per Makro nicht gelöscht werden können in Spalte A des aktuellen Tabellenblattes anlistet, damit du diese dann manuell löschen kannst. Ich weiß allerdings nicht die Fehlernummer für diesen Fehler, daher musst du in folgendem Makro noch die richtige Fehlernummer eintragen. Laß' mein erstes Makro nochmal laufen und merke dir die Fehlernummer. Die trägst du dann unter der Zeile "nicht_geloescht:" an Stelle der 1004 ein.

Sub Benannte_Bereiche_Testen()
Dim Bereich As Name
Dim BerVorhanden As Boolean
Dim NichtGeloescht As Boolean
For Each Bereich In ActiveWorkbook.Names
   BerVorhanden = True
   On Error GoTo Bereich_pruefen
   Debug.Print Range(Bereich).Address
   On Error GoTo 0
   If BerVorhanden = False Then
      On Error GoTo nicht_geloescht
      Bereich.Delete
      On Error GoTo 0
      If NichtGeloescht = True Then
         Range("A65536").End(xlUp).Offset(1, 0) = Bereich.Name
      End If
   End If
Next 'Bereich
Set Bereich = Nothing
Exit Sub
nicht_geloescht:
If Err.Number = 1004 Then
   NichtGeloescht = True
   Resume Next
Else
   MsgBox "Fehlernummer: " & Err.Number & vbLf & vbLf & Err.Description
   Set Bereich = Nothing
End If
Set Bereich = Nothing
Exit Sub
Bereich_pruefen:
If Err.Number = 1004 Then
   BerVorhanden = False
   Resume Next
Else
   MsgBox "Fehlernummer: " & Err.Number & vbLf & vbLf & Err.Description
   Set Bereich = Nothing
End If
End Sub

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Benannten Bereich auf Gültigkeit prüfen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benannten Bereich auf Gültigkeit prüfen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread