Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige