Zusammenhängende Zellenblöcke kopieren
27.11.2003 18:08:54
FlipHH
Ich bin neu zu VBA gekommen und habe ein Problem: Ich möchte gerne aus einem Workbook Zellen in ein anderes kopieren. Ich kenne den Anfang der Ursprungszelle und möchte von dort nach unten und rechts alle nichtleeren Zellen kopieren. Von dem Ziel kenne ich auch nur die Anfangszelle. Das ganze sollte wenn es geht in einer Funktion passieren, die die beiden Range Objekte übergeben bekommt.
Ich habe mehrer Versionen probiert, aber es hat nur mit zwei verschachtelte While - Schleifen (ansatzweise) funktioniert. Diese Version war aber leider sehr sehr langsam (weil das Programme jede Zelle einzeln öffnen muss ?!). Ich hätte gerne gewust, ob ihr eine bessere Idee habt...
Meine bisherige Version:
Function(VarSheetRange AS Range DestRange AS Range)
While VarSheetRange.Cells(i, j) <> ""
While VarSheetRange.Cells(i, j) <> ""
DestRange.Cells(i, j).Value = VarSheetRange.Cells(i, j).Value
i = i + 1
Wend
i = 1
j = i + 1
Wend
End Function
Viele Grüße
Flip