Laufzeitfehler '1004'
23.06.2016 08:10:23
Alex
zur Zeit bin ich an meinem Praxissemester an einem Tool dran. Es soll eine Abarbeitungsliste werden, bei der erledigte Aufträge archiviert werden sollen. Leider kommt beim Archivieren immer der Fehler
Laufzeitfehler '1004':
Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Markiert wird : Worksheets("Tabelle1").Range(Cells(ErsteZeile, 1), Cells(ErsteZeile, 37)).PasteSpecial Paste:=xlPasteValues
Hier ist mal der gekürzt Quellcode
Private Sub CMD_Bereinigen_Click()
Dim Ende As Long
Dim ErsteZeile As Long
Dim Anfang As Long
Dim AnzahlZeilen As Long
Dim Abgeschlossen As Long
Dim ABVerzug As Long
ErsteZeile = Tabelle5.Cells(8, 1).Value
Abgeschlossen = Tabelle8.Cells(7, 2).Value
ABVerzug = Tabelle8.Cells(8, 2).Value
ActiveSheet.Range("$A$1:$AH$13").AutoFilter Field:=12, Criteria1:="Fertig"
Columns("A:AH").Select
Selection.EntireColumn.Hidden = False
Anfang = 3
AnzahlZeilen = 0
Ende = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Do While Trim(CStr(Tabelle1.Cells(Anfang, 1).Value)) ""
If Trim(CStr(Tabelle1.Cells(Anfang, 12).Value)) = "Fertig" Then
AnzahlZeilen = AnzahlZeilen + 1
If Trim(CStr(Tabelle1.Cells(Anfang, 29).Value)) ""
If Trim(CStr(Tabelle1.Cells(Anfang, 12).Value)) = "Fertig" Then
Tabelle1.Rows(Anfang).Delete
End If
Anfang = Anfang + 1
Loop
ActiveSheet.Range("$A$1:$AE$13").AutoFilter Field:=12
If AnzahlZeilen = 1 Then
MsgBox "Es wurde ein Datensatz archiviert."
End If
If AnzahlZeilen > 1 Then
MsgBox "Es wurden " & AnzahlZeilen & " Datensätze archiviert"
End If
Call CMD_Sortieren_Click
End Sub
Ich habe schon einige Beiträge gelesen, jedoch haben die mir nicht weitergeholfen.Vielen dank schon mal im Voraus
Alex S.