PasteSpecial Fehler!
15.04.2005 09:00:31
marc
bei Einsatz der PasteSpecial-Methode Fehlermeldung .
ich kann die Methode Paste nicht ausfuehren ?
If [B9] = "kw" Then
Worksheets("Tag").Activate
For Each c In Range("G5:G16")
If c.Value = "" Then c.Offset(0, 1).ClearContents
Next c
Range("C7:H16").Copy
Workbooks.Open ("C:\Gera\TB\Day_R.xls")
Worksheets("KW").Range("B65536").End(xlUp).Offset(1, 0).Activate
ActiveCell.PasteSpecial Paste:=xlValues
Range("I26").Activate
End If
marc....