Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Arbeitsblatt in nächste offene Datei kopieren

Arbeitsblatt in nächste offene Datei kopieren
27.09.2004 16:50:53
R.Schmitt
Guten Abend,
könnte mir bitte jemand bei diesem Problem helfen ?
In einer geöffneten Datei habe ich das Arbeitsblatt "Kamera"
Dieses soll in eine zweite ebenfalls geöffnete Datei kopiert
werden (mitsamt aller Formate, Druckbereiche etc.)wo es dann
in "ProduktA" umbenannt wird.
Im Anschluß werden in die Original Tabelle neue Werte eingelesen.
Nun soll das gleiche Spiel wieder von vorne losgehen :
Kopie des Arbeitsblattes "Kamera" in die immer noch geöffnete
zweite Datei.
Umbennen des Blattes in "ProduktB"
und so weiter und so fort........
Sheets(Array("Kamera")).Copy
führt mich da ja schon auf halbem Wege weiter - macht aber
jedesmal eine neue Datei auf. Bei 10 betrachteten Produkten
habe ich dann 10 Dateien mit je einem Arbeitsblatt.
Wo um Himmels willen liegt denn jetzt mein Denkfehler, wenn
ich alle Blätter in ein und dieselbe Datei exportiert haben
möchte ***Schähm*** ?
Vielen Dank
R.Schmitt
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt in nächste offene Datei kopieren
ransi
hallo
versuch mal so als ansatz:
Public

Sub t()
Sheets("kamera").Copy After:=Workbooks("zweite_datei.xls").Sheets(Worksheets.Count)
End Sub

ransi
AW: Arbeitsblatt in nächste offene Datei kopieren
27.09.2004 17:29:14
R.schmitt
Hallo Ransi,
und vielen Herzlichen Dank für die schnelle Antwort.
Gerade hat es auch bei mir "KLICK" gemacht.
Deine Lösung ist jedoch noch besser.
Die werde ich übernehmen.
Einen Schönen Abend
R.Schmitt
Anzeige
nimm lieber reinhards lösung ...
ransi
denn die lösung vom reinhard übertrifft meinen ansatz bei weitem....
ransi
AW: nimm lieber reinhards lösung ...
27.09.2004 17:33:02
R.Schmitt
Prima - dann mach´ich das so.
Viele Grüße
AW: Arbeitsblatt in nächste offene Datei kopieren
Reinhard
Hi R...,
"Mappe3" musste noch anpassen.
in ein Modul:
Option Explicit

Sub Makro1()
Dim Wort As String, n As Integer
Wort = "ABCDEFGHIJ"
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Kamera")
For n = 1 To 10
.Range("A1") = n 'Daten werden eingelesen*g
.Copy After:=Workbooks("Mappe3").Worksheets(Worksheets.Count)
Workbooks("Mappe3").Worksheets("Kamera").Name = "Product" & Mid(Wort, n, 1)
Next n
.Select
End With
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
Anzeige
AW: Arbeitsblatt in nächste offene Datei kopieren
27.09.2004 17:32:05
R.Schmitt
Hallo Reinhard,
auch dir vielen Dank für die schnelle Hilfe.
Mal sehen,welche Lösung ich besser verwursteln
kann.
R.Schmitt = Rainer Schmitt
Schönen Abend noch
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige