Hallo,
ich habe mir Deinen umfangreichen code jetzt (noch) nicht angesehen.
Aber probiere es mal so:
WSb.Range("A2").Resize(ZeilMax - 1, 9).Value = .Range("A2:I" & ZeilMax).Value
Der Zielbereich muss entsprechend des zu übernehmenden Bereichs erweitert werden. Das passiert mit der Funktion Resize...
Da ZeilMax die Endzeile ist, der Bereich aber erst bei Zeile 2 anfängt, muss das noch beim Zeilenresize abgezogen werden.
Die Spalten gehen von A bis I, das entspricht 9 für den Spaltenresize
viele Grüße
Karl-Heinz
|