Paste funktioniert nicht
21.02.2006 20:54:18
maksimo
könnt mir die Haare raufen. Ich versuche mit folgendem Code von einem Workbook auf ein anderes zuzugreifen dort Werte zu kopieren und diese dann im aktuellen Workbook wieder einzufügen. Hab jetzt schon mehrere Beispiele angesehen. Alle machen es so, bei mir funktioniert es aber nicht. Krieg immer den Laufzeitfehler 1004 Paste Methode konnte auf Worksheet nicht angewendet werden.
Ich hoffe ihr könnt mir helfen. Danke vielmals schon im voraus.
Hier der Code:
Private Sub CommandButton1_Click()
Dim Name As String
Name = TextBox1.Value
Workbooks(Name).Activate
Worksheets(1).Activate
Worksheets(1).Cells(1, 1).Activate
ActiveCell.EntireColumn.Select
Selection.Copy
'Worksheets(1).Cells(1, 2).Activate
'ActiveSheet.Paste
Workbooks("Book2.xls").Activate
Sheets.Add
ActiveSheet.Name = "Report"
Worksheets("Report").Move After:=Worksheets(Worksheets.Count)
Sheets("Report").Cells(1, 1).Activate
'Sheets("Report").Select
'Range("A1").Select
'ActiveCell.EntireColumn.Select
ActiveSheet.Paste
'Worksheets("Start").Activate
End Sub
Anzeige