Office: vba Tabellenblatt in neue Datei verschieben

Hallo liebe Netzgemeinde,

langsam bin ich am verzweifeln. Ich möchte folgende Aufgaben lösen:

In einem aktiven Tabellenblatt werden Daten eingetragen, davon wird dann eine Kopie angefertigt, (mit Button) die automatisch umbenannt wird und hinter das Tabellenblatt kopiert wird, wo die Daten eingetragen wurden. Soweit bin ich schon mal gekommen.
Nun fängt aber mein Leiden an. Diese Kopie möchte ich aber nicht mehr dahinter speichern, sondern in einer anderen Datei (Rechnungen.xlsx), die auf C:\Excel\ liegt. diese sollte automatisch geöffnet werden, das Tabellenblatt eingefügt, gespeichert und geschlossen wird. Mein bisheriges Makro lautet so.

Private Sub Image1_Click()

Dim NeuerTabellenName As String

'Neuen TabellenName aus Zelle A1 holen und merken
Unprotect Password:=""
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
ActiveSheet.Shapes("CommandButton1").Delete
End Sub

Gibt es da eine Möglichkeit? Über jede Hilfe bin ich sehr dankbar.

Viele Grüße Uwe

:)

 

Hi

das ist eine wunderbare Aufgabe sich über den Makrorekorder das Grundgerüst zu erstellen.
wenn es danach noch Probleme gibt, kannst du deinen Code hier zeigen und dir wird bestimmt geholfen

MfG Tom

 

Guten Abend,

nach dem Abspielen des o.g. Makros wird ein Tabellenblatt mit dem namen Januar 2016 erstellt und auch dahinter kopiert. Nun habe ich mit dem Recorder ein weiteres Makro erstellt, was dieses Tabellenblatt in die neue Datei verschiebt, speichert und schließt.

Mein Problem ist weiterhin, dass die neue Datei(Ausgangsrechnungen) geöffnet sein muss, und das im nächsten Monat die zu verschiebende Datei nicht mehr Januar sondern Februar ist.

das aufgenommene Makro lautet:

Sub Makro2()
'
' Makro2 Makro
'

'
Sheets(" Januar 2016").Select
Sheets(" Januar 2016").Move After:=Workbooks("Ausgangsrechnungen.xlsx"). _
Sheets(1)
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

wie muss ich dasMakro anpassen, dass ich das Makro nicht jeden Monat umbenennen muss. und dass eine geschlossene Datei geöffnet wird und das erstellte Tabellenblatt in die Datei (Ausgangsrechnungen) verschoben wird.

Vielen Dank.

Viele Grüße Uwe

 

Hallo Uwe

bei mir sieht das Makro so aus
Code:

so wird immer das Aktive Tabellenblatt, egal wie es heißt, in die andere Datei verschoben
den Pfad zur Datei "Ausgangsrechnungen" musst du allerdings noch anpassen

MfG Tom

 

Hallo Tom,

vielen lieben Dank für das Makro, es funktioniert schon ganz gut, leider kopiert er mir jetzt zwei mal das gleiche Tabellenblatt "Januar 2016" in die Datei "Ausgangsrechnung". ?? Ich habe beide Makros zusammengefügt. Anbei das gesamte Makro noch mal zur Überprüfung.:

Private Sub Image1_Click()

Dim NeuerTabellenName As String

'Neuen TabellenName aus Zelle A1 holen und merken
Unprotect Password:=""
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
ActiveSheet.Shapes("CommandButton1").Delete

Workbooks.Open Filename:="C:\Users\ritte\Excel\Ausgangsrechnungen.xlsx"
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks("Ausgangsrechnungen.xlsx").Sheets(1)
Workbooks("Ausgangsrechnungen.xlsx").Save
Workbooks("Ausgangsrechnungen.xlsx").Close
End Sub

wie kann man denn den Code besser hier einfügen?

Vielen Dank und einen schönen Sonntag.

Viele grüße Uwe

 

Hallo Tom,

Kommando zurück, es funktioniert einwandfrei. Vielen, vielen Dank für die schnelle Hilfe.

Viele Grüße Uwe

 

Hallo Tom,

sorry, jetzt muss ich dich noch mal stören:
habe jetzt etwas herumexperimentiert und es sogar hinbekommen, dass er nur das aktuelle Tabellenblatt in die Ausgangsrechnungen kopiert und das alte vom Vormonat löscht. soweit, so gut. Nun möchte ich, dass nicht nur die Datei Ausgangsrechnung geschlossen wird, sondern auch die datei, aus der herauskopiert wurde und dann bitte das komplette Excel geschlossen wird. Nicht nur die Datei. Und das geht irgendwie nicht :-(

Hier noch mein zusammengebautes makro.

Private Sub Image1_Click()

Dim NeuerTabellenName As String

'Neuen TabellenName aus Zelle A1 holen und merken
Unprotect Password:=""
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
ActiveSheet.Shapes("CommandButton1").Delete

Workbooks.Open Filename:="C:\Users\ritte\Excel\Ausgangsrechnungen.xlsx"
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks("Ausgangsrechnungen.xlsx").Sheets(1)
Sheets(1).Select
ActiveWindow.SelectedSheets.Delete
Workbooks("Ausgangsrechnungen.xlsx").Save
Workbooks("Ausgangsrechnungen.xlsx").Close
Workbooks("Daten für Ausgangsrechnungen.xlsm").Save
Workbooks("Daten für Ausgangsrechnungen.xlsm").Close
Application.DisplayAlerts = True
End Sub

Viele Grüße Uwe

 

Hi

ungetestet am Ende

Application.Quit

MfG Tom

 

Habe es durch
Application.Quit
ersetzt, er schließt er schön die Datein,aber Excel selbst nicht. Es bleibt offen...

es sieht so aus, wenn mann alle Tabelle schließt und man eine neu Datei öffnen kann...

Viele Grüße Uwe

 

Hi

welche Excel-Version benutzt du denn?
möglich, dass es bei xl2013 und höher dafür einen anderen Befehl gibt
ich benutze nur xl2010 und kleiner

MfG Tom

 

benutze Excel 2010....

hier noch mal das gesamte Makro...

Private Sub Image1_Click()

Dim NeuerTabellenName As String

'Neuen TabellenName aus Zelle A1 holen und merken
Unprotect Password:=""
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
ActiveSheet.Shapes("CommandButton1").Delete

Workbooks.Open Filename:="C:\Users\ritte\Excel\Ausgangsrechnungen.xlsx"
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks("Ausgangsrechnungen.xlsx").Sheets(1)
Sheets(1).Select
ActiveWindow.SelectedSheets.Delete
Workbooks("Ausgangsrechnungen.xlsx").Save
Workbooks("Ausgangsrechnungen.xlsx").Close
Workbooks("Daten für Ausgangsrechnungen.xlsm").Save
Workbooks("Daten für Ausgangsrechnungen.xlsm").Close
Application.Quit
End Sub

Wo muss denn das makro reingeschrieben werden?

 

Workbooks("Daten für Ausgangsrechnungen.xlsm").Close
wenn ich den teil vom Makro lösche, dann funktioniert es einwandfrei.

Ich danke dir, dass du mir geholfen hast.

Viele grüße

Uwe