Hallo,
ich versuche gerade, die Anzahl aller benannten Bereiche in der aktiven Tabelle zu ermitteln, aber das klappt nicht so recht.
strTabelle = "Meine Tabelle"
'Tabelle aktivieren
Worksheets(strTabelle).Activate
'alle benannten Bereiche in der aktuellen Tabelle zählen
nc = Worksheets(strTabelle).Names.Count
In der aktuellen Tabelle sind viele Bereiche per Namen definiert (mehr als 30; sie sind in Formeln hinterlegt und repräsentieren eine Vielzahl von Zellbereichen).
Der obige Code liefert mir als Zahl nur '3'.
Anhand der Beispiele, die ich gesehen habe, scheint es so, als dass man zwar die Bereiche pro Worksheet vergeben kann, sich die Names-Auflistung aber nur auf das Workbook-Object bezieht. Korrekt?
Wenn das stimmt, weiss jemand einen Ansatz, wie ich dennoch ermitteln kann, welche oder wieviele benannten Bereich sich in dem aktuellen Worksheet befinden?
Bin für jeden Tipp dankbar!
Gruß
Jürgen