wow... toll... fantastisch... unglaublich... phänomenal... 1A... 5***** von 5...
Copy + Paste -> funktioniert!!!
Habe alles noch in meine Namenskonventionen geändert und eine winzige Änderung vorgenommen: (und geht immer noch! ;-)
In Zeile 23: strFormula = Replace$(strFormula, "%TABLE%", Table.Address(External:=True))
habe ich "...Table.Address..." in "...rngData.Address..." geändert, dadurch fällt dann das "+1" in Zeile 22 weg. (Was irgendwie störend wirkte, da unsymmetrisch)
Ein Frage an Gast83765 habe ich noch:
Der elegante Aufbau von strFormula erst mit "Variablen" und dann Ersetzen dieser, dient ja wohl "nur" der Übersichtlichkeit, könnte man wohl auch gleich in eine Zeile schreiben. Aber das kann ja dann kaum einr mehr verstehen...
Ist diese elegante Methode VBA üblich oder ist das eine Eigenart von Dir?
Werde ich in Zukunft auf jeden Fall auch so machen.
Vielen, vielen Dank!
idefix
|