Bereich als Variable in anderer Datei einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Bereich als Variable in anderer Datei einfügen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 24.06.2008, 12:59

Hallo,

ich möchte den Inhalt mehrerer Sheets aus einer Datei in eine andere kopieren. Dabei möchte ich den ausgewählten Regionen Variablen zuweisen um ein ständiges hin und her zu umgehen.
Ich hänge jetzt bei der letzten Zeile, dem einfügen des Bereichs.
Mein Code soweit

Code:

Dim BereichM_out, BereichdP, BereichdR As Range

Workbooks(workname_in).Worksheets(regname_in).Activate
Set BereichM_out = Sheets(regname_in).Range("A1").CurrentRegion

Workbooks("Vorlage_FL.xls").Activate
Sheets("M_out").Activate
Cells.ClearContents

BereichM_out.Paste

Vielen Dank für eure Vorschläge.

Gruß
homax

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5555

Verfasst am: 24.06.2008, 13:15

Hallo!

Teste mal etwas in dieser Art:

Code:

Dim Bereich As Range
Set Bereich = Sheets("Tabelle1").Range("A1").CurrentRegion
Bereich.Copy
Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 24.06.2008, 13:22

Danke,
aber ich möchte als erstes mehrere Bereiche als variable einlesen und dann diese Variablen in anderen Dateien ausgeben.
Deine Version kopiert jeden Bereich einzeln.
Mein Grundgedanke ist das Excel nicht ständig zwischen den Dateien hin und her springen muss, oder hat das keinen Einfluss auf die Geschwindigkeit?

homax

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5555

Verfasst am: 24.06.2008, 13:25

Wenn es dir reicht, Festwerte einzufügen, dann ist dieser Weg vielleicht schneller:

Code:

Dim Bereich As Variant
Bereich = Sheets("Tabelle1").Range("A1").CurrentRegion
Sheets("Tabelle2").Range("A1").Resize(UBound(Bereich, 1), UBound(Bereich, 2)) = Bereich

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 24.06.2008, 13:45

Ist genau was ich gesucht hab,
vielen Dank!

Ich benötige zwar nur Festwerte aber wie würde der Befehl lauten falls auch Formeln übertragen werden sollen?

homax

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5555

Verfasst am: 24.06.2008, 13:48

Hallo!

Dann (soweit ich weiß) wie oben per copy&paste.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel Jeanie einfügen	wilfried07	Microsoft Excel Hilfe	2	04.09.2008, 16:13
	In Säulendiagramm Linien einfügen	jdbug1	Microsoft Excel Hilfe	3	03.09.2008, 17:43
	Menü "Seitenzahlen einfügen"...	Adrienne77	Microsoft Word Hilfe	4	03.09.2008, 16:42
	Zeile kopieren und darunter einfügen	magb	Microsoft Excel Hilfe	4	03.09.2008, 16:34
	Neue Zeile unterhalb eines Buttons ei...	Paulus2408	Microsoft Excel Hilfe	2	03.09.2008, 16:04

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de