Thema Datum  Von Nutzer Rating
Antwort
Rot PasteSpecial Fehler 1004
 09.10.2018 11:41:24 Hubert
NotSolved
09.10.2018 12:53:44 Gast17749
NotSolved
09.10.2018 18:33:56 Gast94155
NotSolved

Ansicht des Beitrags:
Von:
Hubert		 Datum:
09.10.2018 11:41:24		 Views:
978		 Rating:
     
Antwort:
  Ja
Thema:
PasteSpecial Fehler 1004

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: 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
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
 
Liebe Grüße

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot PasteSpecial Fehler 1004
 09.10.2018 11:41:24 Hubert
NotSolved
09.10.2018 12:53:44 Gast17749
NotSolved
09.10.2018 18:33:56 Gast94155
NotSolved