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:
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
|