Copy-Funktion
25.07.2006 20:54:12
Erich
nachstehende Copy-Funktion funzt nicht, wobei eigentlich nicht so schwer ist
(dachte ich):
Sub Copy()
Sheets("zentral").Select
Cells(3, 2).Select
lgRowZ2 = Cells(Rows.Count, 1).End(xlUp).Row
With Selection
Selection.Copy
For i = 4 To lgRowZ2
' Selection.Copy ?
Cells(lgRowZ2, 2).PasteSpecial Paste:=xlPasteValues
Next i
Application.CutCopyMode = False
End With
End Sub
Besten Dank für kurze Hilfe!
mfg
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de