Zellenbereiche übertragen
10.06.2004 10:34:43
mar.s
wieso funkt das nicht
With Spsht_nF
wsB.Range(wsB.Cells(1, 2), wsB.Cells(1, 2 * (Tbx_nF.Value - 1))) = .ActiveSheet.Range(.Cells(2, 1), .Cells(Tbx_nF.Value, 1))
End With
wsB ist ein worksheet
Spsht_nF ist ein Spreadsheet (V9.0)
Tbx_nF liefert Anzahl Zwischen 1 und 10
Bsp. Tbx_nF=5
In wsB sollen in der Zelle A2=1 , A4=2 ... A10=5 erscheinen.
Es wird in den Zellen jedoch nur immer der Wert 1 eingetragen.
Weiss jemand Rat.
Grüsse Mar.S