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