Clever-Excel-Forum

Hallo zusammen,

ich habe in folgendem Code ein Problem

Code:
With ActiveWorkbook.Sheets(1)

Set rng = Nothing

Set rng1 = Nothing

Set rng = Range("F:F").End(xlDown)

Set rng1 = Union(Range(.Cells(2, 2), .Cells(rng.Row, 2)), Range(.Cells(2, 5), .Cells(rng.Row, 5)), Range(.Cells(2, 16), .Cells(rng.Row, 16)), Range(.Cells(2, 19), .Cells(rng.Row, 19)))

    a = ActiveWorkbook.Name

    .Activate

    rng1.Select

    rng1.Copy

End With

    Application.DisplayAlerts = False

    Workbooks("Aufarbeitung_V1").Activate

    Call BlattschutzOff

    Worksheets("Produktionsplan").Visible = True

    Worksheets("Produktionsplan").Activate

    Worksheets("Produktionsplan").Range("A2").Select

    Selection.PasteSpecial

    Worksheets("Produktionsplan").Visible = xlVeryHidden

    Call BlattschutzOn

    Workbooks(a).Close

   Application.DisplayAlerts = True

   MsgBox "Daten wurden importiert"

Bei PasteSpecial zeigt er mir die Fehlermeldung "Die PasteSpecial-Methode des Range Objektes konnte nicht ausgeführt werden."

kann mir jemand sagen, woran das liegt und was ich anpassen muss?

Danke euch

VG

Primo

Hi,

ich vermute mal, dass dein Call BlattschutzOff die Worksheets(xxx).UnProtect-Methode verwendet. Diese sorgt dafür, dass auch gleichzeitig der Copy-Modus abgebrochen wird. Somit hat .Pastespecial nichts zum Einfügen.

Hallo Helmut,

danke für deine Nachricht. Ich schaue mal ob ich dies umgehen kann :)

Danke dir schon Mal.

VG

Primo

@Helmut

Das war die Lösung. Danke die vielmals, da hätte ich noch lange suchen können :)

Primo Centurio

HKindler

Primo Centurio