|
Guten Morgen S.
hier etwas Prosa.....
Die Daten des Bereichs werden in ein Array übernommen und von Spalten nach Zeilenanordnung transferiert.
Dann wird das Array in einer Schleife durchlaufen und alle Werte durch 100 geteilt.
Anchließend werden die Daten des Arrays in dem anderen Workbook an der angegebenen Stelle $D$14 wieder ausgegeben.
Hierbei wird per Resize das angegebene Feld $D$14 auf die benötigte Größe erweitert. UBound(vArr) liefert hierbei die Array-Größe.
Das Arbeiten über ein Array ist die schnellste Version, um etwas zu bearbeiten, da sonst bei jeder direkten Schreibaktion auf einem Blatt noch interne Aktionen im Hintergrund ablaufen, die die Ausführung erheblich bremsen.
Diese liessen sich teilweise auch per Application.Screenupdating=false abschalten.
Hier gibt es jetzt nur einen einzigen Schreibvorgang.....
Gruß
KH
|