Pastespecial-Methode des range objektes konnte nic
Martin
Ich habe hier ein großes Problem und hoffe jemand kann mir helfen!
Von einer Seite sollen die Daten in ein anderes Dokument übertragen werden. Ich bekomme jedoch immer die o.g. Fehlermeldung wenn es zum Paste kommen soll.
Was ist hier falsch?
Dim y, z, x As String
datum = Date
pfad = ThisWorkbook.Path
Application.ScreenUpdating = False
Blattschutz_aus
y = Format(datum, "yy")
z = Format(datum, "mm")
x = Format(datum, "dd")
Workbooks.Open Filename:=pfad & "\Daten\" & "Umsetzung.xls"
ActiveWorkbook.SaveAs Filename:=pfad & "\" & y & z & x & "Umsetzung.xls"
ThisWorkbook.Activate
Worksheets("Hilfe").Visible = True
Worksheets("Hilfe").Select
Range("A1:F88").Select
Application.CutCopyMode = False
Selection.Copy
Windows(y & z & x & "Umsetzung.xls").Activate
Blattschutz_aus
Worksheets("Hilfe2").Visible = True
Worksheets("Hilfe2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Hilfe2").Select
Worksheets("Hilfe2").Visible = False
Worksheets("Umsetzung").Select
Range("A1").Select
ThisWorkbook.Activate
Worksheets("Hilfe").Select
Worksheets("Hilfe").Visible = False
Blattschutz_ein
Save:
ThisWorkbook.Save
On Error Resume Next
ThisWorkbook.Close
End Sub
Schonmal vielen vielen Dank für die Hilfe!!!
Martin