WCM Forum - Einzelnen Beitrag anzeigen - Range(Cells(466, 1), Cells(466, 35)).Copy ARGH!

mr.red · 14.09.2006, 10:13

Sub ada(j As Long, v As Long)
Worksheets("Tabelle1").Cells(j, 1).Activate
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Copy

Worksheets("Tabelle1").Cells(v, 27).Activate
<hier ein paste dings>
End Sub

funkt ah net
beim paste: immer object error

14.09.2006, 10:13	#3
mr.red Inventar Registriert seit: 29.04.2001 Alter: 57 Beiträge: 2.278	Sub ada(j As Long, v As Long) Worksheets("Tabelle1").Cells(j, 1).Activate ActiveCell.EntireRow.Select ActiveCell.EntireRow.Copy Worksheets("Tabelle1").Cells(v, 27).Activate <hier ein paste dings> End Sub funkt ah net beim paste: immer object error ____________________________________ i2p http://www.i2p.net/download