PasteSpecial Laufzeitfehler 1004

[Rhym]

Edith: Dreht sich natürlich um Excel (2003)
Edith2: Kann geschlossen werden, es funktioniert nun (Dummer Denkfehler )

Maaahlzeit!

Ich bin kurz vorm ausrasten, weil das Makro nicht läuft.. Fehlermeldung ist die obige im Titel.. Office 2003..
Hier der Code, der Fehler tritt bei dem PasteSpecial Befehl auf.

Sub Update()
    With Sheets("Data")
        .Select
        Selection.AutoFilter Field:=10, Criteria1:="<>0", Operator:=xlOr, _
        Criteria2:=">21.08.2006 23:59"
        .Columns("AI:AI").Copy
        Selection.AutoFilter
        End With
    With Sheets("Pivot")
        .Select
        .Columns("A:A").ClearContents
        .Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
    'Pivot refresh
    Range("E3").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Bin für jegliche Hilfe danbar!

Gruß!

 

[TheCadillacMan]

Wäre nett wenn du die Lösung hier Posten könntest.

Vielleicht hat irgendjemand mal das gleiche Problem.

 

[Rhym]

Wäre nett wenn du die Lösung hier Posten könntest.

Vielleicht hat irgendjemand mal das gleiche Problem.

Lag nicht an dem PasteSpecial Befehl ansich, darum hatte ich es auch nicht gepostet. ;-)

Die kopierten Sachen waren durch ein Select einfach nicht mehr in der Zwischenablage,d arum die fehlermeldung beim pasten..