Arbeitsblatt kopieren
31.01.2004 21:49:51
Wolfgang
Ich möchte aus einer Arbeitsmappe ein Arbeitsblatt kopieren
Das Arbeitsblatt in der neu erzeugten Arbeitsmappe bearbeiten.
Dann möchte ich dieses Arbeitsblatt wieder in die Ursprungs Arbeitsmappe
einbinden.
Mein Problem ist,
das die Buttons die die Ereignisse anstoßen mit kopiert werden,
das die Formeln nicht mit kopiert werden
und das die Paste Methode beim zurückholen nicht klappt
Anbei mal der Code
Private Sub CommandButton1_Click()
Dim wb As Workbook
Worksheets("Tabelle1").Copy
Set wb = ActiveWorkbook
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
With wb.VBProject.vbcomponents(2).codemodule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveAs "C:\TestCopy.xls"
End Sub
Private Sub CommandButton2_Click()
Dim dat As String
dat = ActiveWorkbook.Name
Workbooks.Open FileName:="C:\TestCopy.xls"
Cells.Copy
Windows(dat).Activate
[a1].Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Kann mir da jemand einen Tip geben was ich falsch mache?
gruß wolfgang