Re: Zeilen von Worksheet(1) in Worksheet(2) archiviere
30.10.2002 15:30:38
ANdreas
Hallo Mike,bei Deinem Code ist der Aufbau an sich etwas unglücklich, das beste ist, Du gehst mal schrittweise mit F8 durch Deinen Code. Dann wirst Du selbst erkennen, wo die Schwächen sind.
Also Intersect bildet die Schnittmenge zweier Bereiche. In Deinem Beispiel habe ich den UsedRange (also den genutzten Bereichen in WS(1)) und die Spalte C geschnitten.
Sind zum Beispiel nur die ersten 15 Zeilen genutzt, so ist der besagte Schnittbereich C1:C15.
Und für alle Zellen in diesem Bereich (For each) wird nun geprüft, ob die Zelle leer ist. Ist sie nicht leer, dann wird die gesamte Zeile nach WS(2) kopiert. Dabei erkennst Du noch, dass man dabei völlig auf Selecten verzichten kann und sollte.
Hoffe das hilft weiter,
Andreas