Workbooks.Add
28.12.2017 17:58:48
coskun
Habe folgendes makro in meinem Excelsheet (Unten aufgeführt).
Dieser hat die Funktion: Erstelle eine neue Datei aus dieser Datei und Speichere diese unter einen bestimmten Pfad mit datum und Rechnungsnummer. Zusätzlich soll die eine Rechnungnummer erhöt werden.
Mein Problem ist, dass das Makro nur das erste Blatt übernimmt und nicht das zweite Blatt.
Ich möchte das die komplette Datei neu erstellt (Beide Blätter in der neuen Datei erzeugen) wird und nicht nur das erste Blatt.
(die Datei um die es geht.
1.Blatt: Rechnungsblatt mit einigen formeln.
2.Blatt: Ist eine Kopie vom ersten Blatt mit "gedrückter Schifttaste kopiert und als "verbundene Grafik eingefügt".
).
Danke im Voraus
Guten rutsch
___________________________________________________________________________
Makro.
-->
Option Explicit
Sub NeueRechnung()
Dim NeuerPfad As String
Dim NeuerDateiname As String
Dim i As Integer
i = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
'RechnungsNummer erhöhen
Cells(10, 10).Value = Cells(10, 10).Value + 1
ThisWorkbook.Save
'neue Rechnung erstellen
Workbooks.Add
ActiveSheet.Name = ThisWorkbook.Sheets(1).Cells(10, 10).Value
ThisWorkbook.Sheets(1).Cells.Copy Destination:=Cells(10, 8)
ActiveSheet.DrawingObjects.Delete
NeuerPfad = ThisWorkbook.Path
NeuerDateiname = "ReNr " & Cells(10, 10).Value & " Datum " & Format(Date, "YYYY_MM_DD") & ". _
_
xls"
ActiveWorkbook.SaveAs NeuerPfad & "\" & NeuerDateiname
Application.SheetsInNewWorkbook = i
End Sub