Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo,

ich habe hier ein Problem mit einem Makro und komme trotz einiger web Suche damit nicht weiter. Der Fehler scheint ja recht weit verbreitet zu sein, aber ich konnte mit den Lösungen, die ich in diversen Foren gefunden habe, nicht viel anfangen.
Es wäre super, wenn sich jemand von euch das Makro mal anschauen könnte. Ziel ist aus dem Sheet Übersicht Daten zu filtern und die in Sheet AF1 zu kopieren. Das funktioniert soweit auch, aber seit ich diese Paste Special Sache eingefügt habe um vor der ganzen Operation das Format vom Sheet Übersicht zu kopieren, bekomme ich diese Fehlermeldung.
Laufzeitfehler 1004
Die Paste Special Methode konnte nicht ausgeführt werden.

Schonmal vielen, vielen Dank euch!
 
    Sheets("Übersicht").Select
        Columns("A:J").Select
        Selection.Copy
    Sheets("AF1").Select
        Sheets("AF1").Unprotect
        Columns("A:J").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        Rows("5:500").Select
        Selection.Clear
        Selection.ClearFormats
    Sheets("Übersicht").Select
       Sheets("Übersicht").range("$A$4:$I$500").AutoFilter Field:=7, Criteria1:=Array("1", _
        "1, 2", "alle"), Operator:=xlFilterValues
       ActiveSheet.range("A4:I500").Select
       Selection.Copy
    Sheets("AF1").Select
       ActiveSheet.range("A4").Select
       ActiveSheet.Paste
       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Übersicht").Select
       ActiveSheet.ShowAllData
    Sheets("AF1").Select
End Sub