Hollo Johannes, ich vermute ohne nähere Prüfung, dass die Zeile
tab1(11, pspalte) = tab2(11, lspalte)
die Probleme verursacht, da dieser Befehl die Werte überträgt. Sind identische Formeln im Quelltabellenblatt an gleicher Stelle hinterlegt? Dann kannst vielleicht diese kopieren.
Oder du speicherst die betreffenden Formeln entsprechend zwischen und kopierst sie im Anschluss an den Vorgang zurück. Beachte, dass dann eine neue Berechnung durchgeführt wird.
Beispiel die Formel der Zelle A1 des Blattes 2 nach Zelle C1 des Blattes 2: Sheets(1).Range("c1").Formula = Sheets(2).Range("a1").Formula
Anpassungen an dein Vorhaben dürften recht einfach sein.
Schöne Weihnachten
Holger
|