Benannte Bereiche eines Tabellenblattes auflisten

Gepostet am: Jan 22, 2011 7:59:15 AM

Wer überprüfen möchte, welche benannten Bereiche auf dem aktuellen Arbeitsblatt vorhanden sind, kann sich folgenden VBA-Codes bedienen:

Namen_eines_Tabellenblattes_auflisten()

Sub Namen_eines_Tabellenblattes_auflisten()Dim i As IntegerFor i = 1 To ActiveWorkbook.Names.Count     If InStr(ActiveWorkbook.Names(i).RefersTo, ActiveSheet.Name) <> 0 Then         Debug.Print ActiveWorkbook.Names(i).Name     End IfNext i End Sub