Office: Werte aus einer Excel-Datei mittels Makro in eine andere kopieren

Hallo zusammen,

ich bräuchte ein MAkro welches mir Werte aus einer Tabelle (range("B6:G18")) einer Excel-DAtei ("Original.xls") in eine andere Excel-Datei "Kopie.xls") kopiert, und zwar nur die Werte.
Desweiteren sind die Zellen in "Kopie.xls" gesperrt, weil der Inhalt nicht durch dritte geändert werden soll, das Makro sollte aber in der Lage sein darauf zu zu greifen.

Habe das ganze mit dem Makro-Rekorder aufgezeichnet aber das ist so unübersichtlich und unschön und lang.... Das sollte irgendwie hübscher gehen.

Kann mir jemand helfen?

Viele Grüße, Simone

:)

 

Ich hoffe das hier sieht schöner aus *Smilie
Code:

Die Namen der Tabellenblätter mußt du noch anpassen.

 

hallo, simone.
dann zeige doch mal, was der m-rekorder ausgespuckt hat.
sonst ist das n bissl schwierig mit dem helfen...*wink.gif*
liebe grüsse,
rayek
edit:
ok, styrkar war schneller und besser. *wink.gif*
so sollte das funzen, wie er vorschlägt.

 

Hi,

leider klappt das bei mir nicht, ich bekomme immer eine Fehlermeldung bei styrkars Quellcode.

Hier ist das was der MAkrorekorder ausgespuckt hat:

Sub aktualisieren()

Workbooks.Open Filename:= _
"Y:\Michael\kopie.xls", UpdateLinks:=3
Sheets("Sheet3").Select
ActiveSheet.Unprotect Password:="simone" 'Schreibschutz deaktivieren"
Windows("original.xls").Activate
Sheets("Tabelle1").Select
Range("B6:G18").Select
Selection.Copy
Windows("kopie.xls").Activate
Sheets("sheet3").Select
Range("B6:G18").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select

End Sub

 

Na dann versuch ichs nochmal:
Code:

Das ist vielleicht nicht mehr ganz so hübsch, dafür macht es so ziemlich genau das was dein aufgezeichnetes Makro auch anstellt.

P.S.: Paste:=xlPasteValuesAndNumberFormats ist eine Option die in manchen Excelversionen nicht zur Verfügung steht. Wird das Makro da aufgerufen kommt ein Fehler (2000 und tiefer glaube ich)
Die sichere Variante wäre:
Code:

 

Hallo Styrkar,

vielen Dank, das klappt jetzt endlich und sieht auch schon besser aus :-)

Vielleicht kannst Du mir nochmal weiterhelfen:
Ich will noch verschiedene andere Dinge kopieren (so wie die TAbelle eben), das bekomm ich auch hin, aber: Gibt es vielleicht die Möglichkeit, dass ich den Pfad und die DAteinamen nur einmal angebe (ziemlich weit oben im Quelltext), sodass ich, falls ich mal auf die Idee kommen sollte, meinen Dateien andere NAmen zu geben, die Namen nur an einer Stelle ändern muss und nicht überall im Quelltext?

Besten Dank und schöne Grüße, Simone

 

Du kannst den Dateinamen durch Variablen ersetzen die du am Anfang des Makros zuweißt.
Code: