Paste Makro läuft auf Fehler
21.05.2004 10:44:29
Wutschka
ich hoffe ihr könnt mir helfen, denn ich bin schon am Verzweifeln: Ich habe zwei Excel Dateien, in der einen gibt es ein ausgeblendetes Blatt, welches die eingetragenen Werte aus der ersten Datei zusammenfaßt. EIn Knopf Copy blendet das Blatt ein markiert alle Zellen und kopiert. Danach wird das Blatt wieder ausgeblendet. So weit so gut. In der zweiten Datei habe ich mehrere Tabellenblätter um die Werte einzufügen zusammen mit jeweils einer Schaltfläche. Diese führt folgendes Makro aus:
Sub Einfügen_aus_RFQ()
ActiveSheet.Cells.Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Cells(1, 1).Select
End Sub
Leider läuft die PasteSpecial-Methode auf den Laufzeitfehler 1004: "Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden." Hab schon mehrere Varianten probiert, mal nur einen Bereich und nicht das gesamte Blatt zu kopieren, etc. Wenn ich aber das Tabellenblatt manuell markiere und die Werte einfüge funktioniert es. Könnt ihr mir vielleicht helfen, um von meiner langen Leitung runterzukommen?
Vielen Dank im Voraus
Tobias
Zur Vollständikeit das "Kopieren"-Makro:
Sub Kopie_erstellen()
ThisWorkbook.Unprotect
ActiveSheet.Cells(1, 1).Select
'Application.ScreenUpdating = False
ThisWorkbook.Sheets("COPY").Visible = True
Sheets("COPY").Select
Cells.Select
Selection.COPY
Range("A1").Select
ActiveWindow.SelectedSheets.Visible = False
Application.ScreenUpdating = True
End Sub