Hallo Zusammen,
ich hatte gestern eine Frage gepostet und hier prompt eine genau passende Lösung bekommen, daher hier der Versuch mit einem weiteren Thema, was mich mit dem gleichen Projekt beschäftigt:
Ich kalkuliere mit einer Masterkalkulation einzelne Immobilien (immer ein Tabellenblatt / Immobilie). Wenn ich mehrere Immobilien kalkuliert habe (diese liegen dann als Datei mit einem Tabellenblatt vor), füge ich zu einem Portfolio zusammen. Das geschieht dadurch, dass ich die Tabellen mit den einzelnen Immobilien in die Portfoliodatei reinziehe / kopiere.
Die Namen der Tabellenblätter sind jeweils an den Namen der jeweiligen Immobilie angelehnt (Bsp. "Musterstadt"; "Traumstadt" o.ä.)
Da in den einzelnen Immobilienkalkulationen immer die gleichen Makros verwendet werden, habe ich sie vor dem Einfügen in die Portfoliodatei jeweils mit
Dim ws As Worksheet
Set ws = Worksheets("I1-Musterstadt")
eindeutig gemacht. Das ist in wenigen Minuten per Hand gemacht, da aber auch andere Benutzer mit den Immobiliendateien kalkulieren sollen, die aber nix im VBA Editor verloren haben, wäre es super, wenn man das in Abhängigkeit des Namens automatisieren könnte.
Die Tabellennamen der einzelnen Immobilienkalkulationen, die später zu einem Portfolio zusammengefasst werden beginnen immer mit "I" und der laufenden Nummer im Portfolio (also I1, I2; I3, ....In). Danach folgt noch ein Bindestrich und der Immobilienname.
Erreichen möchte ich, dass spätestens vor dem Einfügen in die Portfoliodatei - also dann, wenn die Immobilien des betreffenden Portfolios durchnummeriert werden - im VBA Code der jeweils vergebene Name zur eindeutigen Identifizierung der Makros verwendet wird.
Ich hoffe, ich hab mich verständlich ausgedrückt und freue mich auf eure Lösungsansätze. ;-)
Vielen Dank im Voraus und beste Grüße
Gunnar