Office: Range-Namen ermitteln ?

Hallo zusammen,

ich habe ein Excel Dokument, das automatisch von der Steuerung einer Produktionsmaschine erzeugt wird.

Darin befindet sich im Prinzip ein Statusbericht über einen bestimmten Produktionszeitraum. Ich lese daraus mit einem Makro in einem zweiten Excel Dokument bestimmte Bereiche aus verschiedenen Tabellenblättern aus. Dabei gibt es leider ein Problem.

Die Tabellenblätter haben immer denselben Namen. Innerhalb der Tabellenblätter befinden sich jeweils eingebundene Grafiken und Datentabellen. Ich lese nur die Datentabellen. Die Bereiche, in den diese Daten stehen, liegen nicht immer an derselben Stelle. Das heißt also, daß meine Nutzdaten im Bericht von heute z.B. im Range B50:F75 stehen, kann das im Bericht morgen genausogut B40:F45 sein. Lediglich die Anzahl der Spalten ist konstant und die Startspalte B
Soweit ist das noch kein Problem, denn die erzeugende Software vergibt Namen für die betreffenden Bereiche, die ich dann mit Range("EinName").Select selektieren kann.

Probleme gibt es aber mit den Namen an sich. Die in den verschiedenen Tabellenblättern benamten Bereiche heißen z.B. "Tabelle1" oder "DetailBereich2", "DetailBereich3" usw.
Offensichtlich hat die ( nicht beeinflußbare ) Erzeugungssoftware eine gemeinsame Zählvariable für alle Namensobjekte. Wenn im Bericht dann nicht nur ein Bereich mit dem Namen "Tabelle..." vorkommt, sondern drei davon, heißen die "Tabelle1", "Tabelle2" und "Tabelle3"
In diesem Fall werden aber auch die einzig für mich relevanten Bereiche "DetailBereich..." anders numeriert und heißen also "Detailbereich4", Detailbereich5" usw.

Ich möchte also nach dem Öffnen der externen Datei zunächst feststellen, welche benamten Bereiche es im Dokument gibt und wie sie heißen. Dann könnte ich mich auf die Bereiche beziehen, deren Name mit "DetailBereich" beginnt.

Das habe ich aber noch nicht hinbekommen. Hat dazu jemand eine Idee ?

Ich hatte nach einem Vorschlag in einem anderen Forum versucht, die Daten mit ....Names.Count zu ermitteln.
Leider funktioniert das wahrscheinlich nur dann, wenn die Bereiche in derselben Arbeitsmappe liegen, aus der auch das Makro ausgeführt wird.
In meinem Fall öffne ich aber aus einem Excel Dokument eine zweite Datei, aus der ich dann die Daten in ein Tabellenblatt des ersten Dokumentes kopieren will.

Gruß,
Wolfgang

Hier mein Source dazu. Ich habe darin die Namen der Quell- und Zielpfade verallgemeinert.

Code:

:)

 

Hi Wolfgang,

die Namen aus der anderen Mappe kannst du nach diesem Prinzip feststellen:

Code:

 

Hallo Karin,

vielen Dank, aber irgendwie hakt es noch. Möglicherweise bin ich zu begriffstutzig. VBA ist allerdings auch nicht gerade mein Spezialgebiet.

Ich habe dies in meinen Code eingefügt :

Code:

Beim Aufruf der For-Schleife bekomme ich den Laufzeitfehler 9 ("Index außerhalb des gültigen Bereiches")

Auch der (hilflose )Versuch, auf die Mappe mit dem Bezug auf das bereits geöffnete File zu verweisen ...
Code:

... geht mit Laufzeitfehler 13 ("Typen unverträglich") in die Hose.

Langsam gehen mir alle Ideen aus *frown.gif*

Gruß,
Wolfgang

 

Hi wmu,

schau Dir Karins Code mal genauer an. Da steht nicht!
Code:

sondern nur der Name der Mappe (also ohne Pfadangabe)...

 

Hallo Wolfgang,

Code:

oSourceBook ist vom Typ Workbook (könntest / solltest Du auch so deklarieren) und Du weist der Variable ja das Workbook beim Öffnen zu. Du kannst das Workbook also direkt über diese Variable ansprechen, auch die enthaltenen Methoden und Eigenschaften.

Code:

Das wundert mich auch, kann ich aber ohne Kenntnis der Mappe nicht anders beurteilen. Mit meiner Testmappe funktioniert das, wie erwartet, einwandfrei.

Code:

Nach dem Öffnen ist das geöffnete das aktive Workbook.

Und nimm mal Application.DisplayAlerts = False zu Beginn des Codes raus. Die Option sollte nur direkt vor dem Befehl genutzt werden, wo die Warnmeldungen deaktiviert werden sollen (was bereits einer genauen Überlegung bedarf) und danach sofort wieder rückgängig gemacht werden. Niemalsnie pauschal und global für das gesamte Makro deaktivieren!

Grüße
EarlFred

 

Vielen Dank auch Euch beiden !

Ich hatte zwischenzeitlich über die Dokumentation zum Workbook Objekt auch herausbekommen, daß es sich hier nicht um eine Dateiangabe incl. Pfad handelt.

Ich hatte dann versuchsweise den Code mal so geändert :

Code:

Das ergibt immerhin schon mal keinen Laufzeitfehler mehr. Allerdings liefert
Anzahl = Workbooks(w.Name).Names.Count
eine Enttäuschung, denn Anzahl ist 0

Ich habe mich vergewissert, daß es in dieser Arbeitsmappe tatsächlich Bereiche mit Namen gibt. ( Abgesehen davon, daß es ja funktioniert, wenn ich die Namen explizit richtig angebe )
Ich habe in der Datei mal über -> Formeln -> Namensmanager nachgesehen. Da stehen dann die Bereichsnamen. Ich suche also in der falschen Struktur. Finde ich die Namen wirklich auf Workbook-Ebene oder muß ich erst herausfinden, wie die Tabellenblätter heißen und darin nach den Namen suchen ?

Gruß,
Wolfgang

 

Hi Wolfgang,

Namen werden auf Workbook-Ebene gefunden, auch wenn sie sich nur auf einzelne Tabellen beziehen - in dem Fall steht dann noch der Tabellenname davor.

Sind im Namensmanager die Bereiche unter "Bezieht sich auf" eventuell ausgegraut? Dann sind es (z.B.) als Tabelle formatierte Bereiche und diese werden nicht als Namen erkannt, obwohl sie unter den definierten Namen aufgelistet sind.

 

Hallo Karin,

genauso ist es. Die Liste der Bereiche enthält alle Angaben, auch Ort und Parameter der einzelnen Bereiche, aber die Werte im Feld "Bezieht sich auf ... " unten im Fenster sind jeweils ausgegraut.

Und nu ? Kann ich nur blöd aus der Wäsche gucken ?
Irgendwie muß ich doch an diese vermaledeiten Namen kommen *mad.gif*

Gruß,
Wolfgang

 

Eine mögliche Alternative wäre ja, zu probieren, ob es einen bestimmten Bereichsnamen gibt.
Die Bereichsnamen, die mich interessieren, beginnen auf jeden Fall mit "Detailbereich..." . Einzig die Benummerung beginnt mal mit 1, mal mit 2 oder auch 3. Ich weiß auch, daß es nur 4 oder 5 Bereiche sein können.
Bereiche mit anderen Namen sind nicht relevant.

Dann könnte ich doch testhalber mal in einer Schleife versuchen, die Bereiche "Detailbereich1" bis "Detailbereich10" zu selektieren.
Dort wo es funktioniert ist es gut, die anderen lasse ich weg. Das ist nicht die eleganteste Methode, aber der Zweck heiligt die Mittel. Ich möchte da nicht noch mehr Zeit hineinstecken.
Könnte mir jemand einen Tip zur Realisierung geben ?
in Delphi würde ich so etwas mit Try ... except ... machen. Gibt es sowas in VBA auch ?

Gruß,
Wolfgang

 

... ups, gerade gesehen :

Code:

Das probiere ich mal aus.

Gruß,
Wolfgang

 

Hallo Wolfgang,

Try/Catch suchst Du in VBA vergebens. Da müsstest Du andere Konstrukte basteln.

For Each namName In oSourceBook.Names, wie ich vorgeschlagen habe, sollte auch keinen Laufzeitfehler ergeben.


Was ist denn Ziel der Übung? Auf die Tabellen zuzugreifen? Dafür gibt es doch das ListObject!

Code:

Die Daten stehen z. B. im DataBodyRange - einfach mal in der OH nach ListObject suchen.

Grüße
EarlFred

 

Hallo EarlFred,

das war der entscheidende Tip. Tatsächlich stehen in diesen Objekten die Namen, die ich suchte. Ich lese die einfach in ein String-Array und kann sie in der For Linie = 1 To 4 Schleife mit den Index Linie einfach verwenden.
Jetzt rennt es. Vielen Dank allen, die mir hier aufs Pferd geholfen haben !*Smilie *Smilie

Gruß,
Wolfgang