Hallo,
ich bekomme den Fehler: "DiePasteSpecial Methode des Range Objektes konnte nicht durchgeführt werden.
Ausgangspunkt: Ich versuche nur die Werte einer Zelle in ein anderes Sheet zu übertragen. Stand jetzt kopiere ich allerdings alles mit in die Zielzelle:
Sheets("Aktive Zeitarbeitnehmer").Range("AD" & lngZeile).Copy
Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("P" & lngZielZeile)
ich probiere es mit dem PasteSpecial und bekomme den Fehler:
Sheets("Aktive Zeitarbeitnehmer").Range("C" & lngZeile).Copy
Worksheets("Inaktive Zeitarbeitnehmer").Range("B" & lngZielZeile).PasteSpecial _
Paste:=x1Values
myteriös ist nur dass mein PasteSpecial Syntax in einem jungfräulichen Excel Dokument
tadellos funktioniert.
Ich hoffe ihr könnt mir hier weiterhelfen.
PS: Falls zum Besseren Verständnis hier ist der gesamte Quellcode:
'Liegt das Datum in der Vergangenheit, wird die gesamte Zeile verschoben zu inaktiven A_Nehmern
'Durchläuft die gesamte Spalte und vergleicht sie mit einen vorgegebenen Wert
Dim lngZeile As Long
Dim lngZielZeile As Long
For lngZeile = Range("Y" & Rows.Count).End(xlUp).Row To 4 Step -1
If Range("Y" & lngZeile) < Date Then
'Sucht die erste leere Zeile des Blattes "Inaktive Zeitarbeitnehmer"
lngZielZeile = Sheets("Inaktive Zeitarbeitnehmer").Cells(Rows.Count, 4).End(xlUp).Row + 1
If Sheets("Inaktive Zeitarbeitnehmer").Range("D" & lngZielZeile) <> "" Then
MsgBox "Zielzeile enthält bereits Werte, bitte prüfen!"
Else
'Firma
Sheets("Aktive Zeitarbeitnehmer").Range("C" & lngZeile).Copy 'Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("B" & lngZielZeile)
Worksheets("Inaktive Zeitarbeitnehmer").Range("B" & lngZielZeile).PasteSpecial Paste:=x1Values
'Personalnummer
Sheets("Aktive Zeitarbeitnehmer").Range("D" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("C" & lngZielZeile)
'Name und Vorname
Sheets("Aktive Zeitarbeitnehmer").Range("E" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("D" & lngZielZeile)
Sheets("Aktive Zeitarbeitnehmer").Range("F" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("E" & lngZielZeile)
'Geschlecht
Sheets("Aktive Zeitarbeitnehmer").Range("G" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("F" & lngZielZeile)
'Prüfung Vorbescheinigung fällt raus
'KST
Sheets("Aktive Zeitarbeitnehmer").Range("K" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("H" & lngZielZeile)
'Vorgesetzter fällt raus
'Tätigkeit
Sheets("Aktive Zeitarbeitnehmer").Range("M" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("I" & lngZielZeile)
'Von && Bis
Sheets("Aktive Zeitarbeitnehmer").Range("N" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("J" & lngZielZeile)
Sheets("Aktive Zeitarbeitnehmer").Range("Q" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("K" & lngZielZeile)
'Vorbeschäftigung
Sheets("Aktive Zeitarbeitnehmer").Range("R" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("M" & lngZielZeile)
'Einsatztage
Sheets("Aktive Zeitarbeitnehmer").Range("S" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("N" & lngZielZeile)
'Übernahmefrist
Sheets("Aktive Zeitarbeitnehmer").Range("Y" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("O" & lngZielZeile)
'Hinweis fällt raus
'Beendigungsgrund
Sheets("Aktive Zeitarbeitnehmer").Range("AD" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("P" & lngZielZeile)
'Bemerkung
Sheets("Aktive Zeitarbeitnehmer").Range("AE" & lngZeile).Copy Destination:=Sheets("Inaktive Zeitarbeitnehmer").Range("Q" & lngZielZeile)
MsgBox "Der Mitarbeiter: " & Sheets("Aktive Zeitarbeitnehmer").Range("E" & lngZeile) _
& ", " & Sheets("Aktive Zeitarbeitnehmer").Range("F" & lngZeile) & " wurde zu Inaktive Mitarbeiter verschoben."
End If
'Nun wird die Zeile mit den obsoleten Daten gelöscht
Sheets("Aktive Zeitarbeitnehmer").Activate
Sheets("Aktive Zeitarbeitnehmer").Range("Y" & lngZeile).EntireRow.Select
Selection.Delete Shift:=xlUp
'Springt wieder zum Anfang des Blattes
Application.Goto Reference:=Worksheets("Aktive Zeitarbeitnehmer").Range("A1"), Scroll:=True
End If
Next
MsgBox "Keine Inaktiven Mitarbeiter mehr vorhanden!"
End Sub