12.12.2023, 12:09
Hallo zusammen,
ich habe in folgendem Code ein Problem
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
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