Thema Datum  Von Nutzer Rating
Antwort
Rot VBA PasteSpecial funktioniert nicht - Laufzeitfehler 1004
 22.02.2014 17:57:55 Nils
Solved
22.02.2014 20:14:27 Gast21431
Solved
23.02.2014 13:03:38 Nils
NotSolved

Ansicht des Beitrags:
Von:
Nils		 Datum:
22.02.2014 17:57:55		 Views:
1911		 Rating:
     
Antwort:
 Nein
Thema:
VBA PasteSpecial funktioniert nicht - Laufzeitfehler 1004

Hallo,

vorweg, ich bin ein absoluter Newbie was VBA anbelangt!! :-)

Folgende Situation:'
Ich möchte aus einem Quelltabellenblatt einige Felder in ein neues Tabellenblatt kopieren.
Der Kopiervorgang soll über eine Schaltfläche, am Ende der Zeile, angestoßen werden.
Das Kopieren funktioniert eigentlich einwandfrei, jedoch werden die Daten in der Quelltabelle mittels Formel ermittelt.
Somit werden auch die Formeln anstatt die Werte in die Zieltabelle kopiert. Wenn ich nun "PasteSpecial" hinzufüge, so wird
mir ein Fehler ausgegeben. Wahrscheinlich ein ganz banaler Fehler, jedoch stehe ich völlig auf dem Schlauch.
Hier mein Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Makro_1()
 
Dim letzteZeile As Integer
 
letzteZeile = Zieltabelle.Cells(Rows.Count, 2).End(xlUp).Row + 1
 
     
Quelltabelle.Range("A7").Copy Zieltabelle.Range("B" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("B7").Copy Zieltabelle.Range("C" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("C7").Copy Zieltabelle.Range("D" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("D7").Copy Zieltabelle.Range("E" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("E7").Copy Zieltabelle.Range("F" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("K7").Copy Zieltabelle.Range("G" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("G7").Copy Zieltabelle.Range("H" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("H7").Copy Zieltabelle.Range("I" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
Quelltabelle.Range("J7").Copy Zieltabelle.Range("K" & letzteZeile).PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, False, False)
 
End Sub

 

Der Fehler lautet:

Laufzeitfehler 1004
Die PastSpecial-Eigenschaft des Range-Objektes kann nicht zugeordnet werden.

Ich hoffe Ihr habt einen guten Tipp für mich. Vorab vielen Dank!!

Gruß Nils

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 VBA PasteSpecial funktioniert nicht - Laufzeitfehler 1004
 22.02.2014 17:57:55 Nils
Solved
22.02.2014 20:14:27 Gast21431
Solved
23.02.2014 13:03:38 Nils
NotSolved