Laufzeitfehler 104 PasteSpezial-Methode
27.05.2019 19:52:29
Peter
stehe vor der Fehlermeldung >Laufzeitfehler 104 PasteSpezial-Methode des Rang-Objekts konnte nicht ausgeführt werden Das Modul soll nach dem 31.12 (auskommentierte Zeile) einen Bereich kopieren und diesen dann in ein neues Worksheet einfügen. Dabei kommt bei >10 Kann jemand helfen?
Option Explicit
Public rechnungsJahrNeu As Integer
Sub jahresEnde(last As Integer, archivOrdner As String)
'Jahresende Macro
'Aktuelle Datum lesen
Dim diff As Integer
Dim rechnungsJahr As Double
rechnungsJahr = ActiveSheet.Cells(7, 11).Value
rechnungsJahr = rechnungsJahr / 10000
rechnungsJahrNeu = rechnungsJahr + 1
'If Year(Date) = rechnungsJahr Then GoTo 100
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Letzte Reihe finden
diff = last
Range(Cells(8, 1), Cells(last, 12)).Copy 'Bereich kopieren
Dim intTab As Integer
intTab = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Worksheets("Tabelle1").Select
Cells("1,1").Font.Size = 14
Cells("1,1").Font.Bold = True
Cells("1,1") = "Rechnungsjahr " & rechnungsJahr
10 Range(Cells(3, 1), Cells(last + 2 - 7, 12)).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs archivOrdner
100
End Sub
Peter