Öffnen in neuem File

Question

Hallo zusammen, ich möchte, dass in excel ein sheet durch klick auf ein Makro in einem ganz neuen excel file aufgeht. wie kann ich das machen?

Answer 1

Hallo,

per Makro kannst du eine Datei wie folgt öffnen:

Sub oeffnen()

Workbooks.Open ("C:\Temp\Beispiel.xls")

End Sub

Gruß

M.O.

Answer 2

Vielen Dank zunächst.
Ich habe jedoch ein Excel File mit mehreren Sheets. Wenn ich nun in einem sheet bin, möchte ich mit einem Button, dass dieses Sheet in einem neuen Excel File geöffnet wird. Ist das möglich?

Answer 3

Hallo,

du kannst das aktuelle Tabellenblatt höchstens in eine andere Arbeitsmappe verschieben oder kopieren.

Gruß

M.O.

Answer 4

Das wäre eventuell auch ein Lösungsansatz. Springt die Arbeitsmappe dann von alleine auf?
Wie geht das, was du beschrieben hast?

Vielen Dank bis hier hin.

Gruß PP

Answer 5

Das wäre eventuell auch ein Lösungsansatz. Springt die Arbeitsmappe dann von alleine auf?
Wie geht das, was du beschrieben hast?

Vielen Dank bis hier hin.

Gruß PP

Answer 6

Hallo,

kopiere das folgende Makro in ein Standardmodul deiner Arbeitsmappe:

Sub Tabelle_kopieren()

Dim aname, nname, sname As String

aname = ActiveWorkbook.Name 'Name der aktiven Arbeitsmappe
sname = ActiveSheet.Name 'Name des aktuellen Arbeitsblatts

Workbooks.Add 'neue Arbeitsmappe wird erstellt
nname = ActiveWorkbook.Name 'Name der neuen Arbeitsmappe

'Arbeitsblatt wird an erster Stelle in neue Arbeitsmappe kopiert
Workbooks(aname).Sheets(sname).Copy before:=Workbooks(nname).Sheets(1)

'das kopierte Blatt in der neuen Arbeitsmappe wird aktiviert
Workbooks(nname).Sheets(1).Activate

End Sub

Das Makro kopiert das aktuelle Arbeitsblatt in eine neue Arbeitsmappe und aktiviert diese.

Gruß

M.O.