Mit: ActiveWorkbook.Sheets.copy werden sämtliche Tabellen in Workbook "Mappe1" kopiert.
Wie lautete der Code, damit sämtliche Tabellen in Workbook("Heute") kopiert werden?
Rainer
Mit: ActiveWorkbook.Sheets.copy werden sämtliche Tabellen in Workbook "Mappe1" kopiert.
Wie lautete der Code, damit sämtliche Tabellen in Workbook("Heute") kopiert werden?
Rainer
die Antworter hier sind keine Maschinen, daher etwas Geduld bitte.
Das funktioniert nur, wenn Du die neue Mappe speicherst. Die von Excel für das Einfügen der Blätter verwendete Vorlage kann nicht einfach umbenannt werden.
Die neue Mappe wird in diesem Beispiel im gleichen Ordner gespeichert, in dem sich die kopierte Datei befindet.
Viel Erfolg,
Charlie
benutze folgenden Befehl:
ActiveWorkbook.Sheets.Copy Before:=Workbooks("Personl.xls").Sheets(1)
Gruß, Arno
vielleicht steh ich auch nur auf dem Schlauch? Rainer will doch eine neue Mappe erstellen, die nicht einfach nur "Mappe1", sondern "Heute.xls" heißt. Und das soll so lösbar sein?
Und wer sagt, dass jeder - vor allem Rainer - auch eine "Personl.xls" hat?
Sollte ich falsch liegen, wäre ich Dir dankbar, wenn Du das Rätsel für mich auflösen könntest.
Danke im Voraus,
Charlie
Gruß, Arno
danke für Deine Rückmeldung. Offensichtlich bin ich heute schon ein 2. Mal völlig daneben gelegen. :((
Aber ganz ausgeschlossen ist es nicht, dass Rainer eine neue Mappe mit dem Namen "Heute.xls" erstellen will (war nur ein Versuch, mein Danebenliegen zu beschönigen ;). Mich hat in Deinem Code die "Personl.xls" etwas irritiert, weil das ja nicht irgend eine Mappe ist, sondern eigentlich eine bestimmte Bedeutung hat.
Danke nochmals,
Charlie