Nabend,
hat jemand eine Idee was ich falsch mache? Ich möchte gerne aus meiner
aktuellen Arbeitsmappe raus eine neue erstellen.
Diese soll erstmal ein Arbeitsblatt von meiner aktuellen Arbeitsmappe
erhalten (also von aktueller nach neuer kopieren..)
1 | Public Function CreateNewWorkbook(sName As String)
|
2 |
|
3 | Dim sPath As String
|
4 |
|
5 | sPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
|
6 |
|
7 | MsgBox sPath
|
8 |
|
9 | Set NewBook = Workbooks.Add
|
10 | With NewBook
|
11 | .Title = "sName" + Format(Date, "YYYY")
|
12 | .SaveAs Filename:=sPath & "\" & sName & ".xlsm", FileFormat:=xlWorkbookNormal
|
13 | End With
|
14 |
|
15 | Dim wbkQuelle As Workbook
|
16 | Dim wbkZiel As Workbook
|
17 | Dim wksQuelle As Worksheet
|
18 |
|
19 | Set wbkQuelle = Workbooks(ActiveWorkbook.Name)
|
20 | Set wbkZiel = Workbooks(sName + ".xlsm")
|
21 | Set wksQuelle = wbkQuelle.Worksheets("Tabelle1")
|
22 |
|
23 | wksQuelle.Copy After:=wbkZiel.Sheets(wbkZiel.Sheets.Count)
|
24 |
|
25 |
|
26 | End Function
|
Was mache ich falsch? Es wird zwar eine neue Mappe erstellt, nur mein
Arbeitsblatt ("Tabelle1") wird da nicht in die neue Arbeitsmappe
kopiert..