Office: Tabellenblatt in neue Datei speichern und ans Ende kopieren

Hallo und Guten Tag,

mit dem unten stehenden Code wird das einzige Tabellenblatt aus der Datei (Daten für Ausgangsrechnungen.xlsm) kopiert und in eine andere Datei (Ausgangsrechnungen.xlsx) eingefügt. Das kopierte Tabellenblatt nimmt dann den aktuellen Monatsnamen aus B1 an. Soweit so gut. Leider kopiert er mir das Blatt nicht an das Ende der Tabelle, sondern immer an die dritte Stelle von der Datei.

Vielleicht kann man mir helfen, den Fehler zu finden.

Vielen Dank.
Viele Grüße
Macanudo

Anbei mal das Makro...

Private Sub Image1_Click()

Application.Visible = False
Application.ScreenUpdating = False


Dim NeuerTabellenName As String

'Neuen TabellenName aus Zelle A1 holen und merken

NeuerTabellenName = ActiveSheet.Range("b1").Value

'Tabelle kopieren und hinter der letzten Tabelle einfügen
ActiveSheet.Copy after:=Sheets(Sheets.Count)

ActiveSheet.UsedRange.Cells = ActiveSheet.UsedRange.Cells.Value

'der neuen Tabelle den Name geben
Sheets(Sheets.Count).Name = NeuerTabellenName
ActiveSheet.Shapes("Image1").Delete

Workbooks.Open Filename:="C:\Users\h1504rtuz\Desktop\Ausgangsrechnungen.xlsx"
ThisWorkbook.Activate
ActiveSheet.Move after:=Workbooks("Ausgangsrechnungen.xlsx").Sheets(Sheets.Count)
Workbooks("Ausgangsrechnungen.xlsx").Save
Workbooks("Ausgangsrechnungen.xlsx").Close
Workbooks("Daten für Ausgangsrechnungen.xlsm").Save
Workbooks("Daten für Ausgangsrechnungen.xlsm").Close
Application.Visible = True
Application.ScreenUpdating = True
Application.Quit


End Sub

:)

 

Hi,

wenn ich das richtig sehe, sprichst du in dieser Zeile

Code:

die Anzahl an Tabellen in der Arbeitsmappe mit dem Code an, da du zuvor mittels

Code:

diese zur aktiven Mappe machst. M.E. müsste es also richtig wie folgt heißen

Code:

 

Das ist Magie!!!

es funktioniert einwandfrei.

Vielen Dank.

Viele Grüße
Macanudo

 

Nein, keinesfalls - ist einfach nur die Beachtung für die Verwendung der richtigen Bezüge *wink.gif* *wink.gif*