Office: Bereich als Variable in anderer Datei einfügen

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

 

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

 

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

 

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

 

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

 

Hallo!

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