Office: daten kopieren und in andere arbeitsmappe einfügen

hallo, ich bin relativ neu dabei und versuche momentan ein makro zu schreiben. in meiner geöffneten arbeitsmappe, welche auch die zielmappe ist, starte ich mein makro. durch dieses öffne ich eine andere datei, die ich auswählen kann, kopiere daten einer tabelle. soweit so gut. nun möchte ich diese daten in meine ursprüngliche datei einfügen OHNE dabei den namen zu verwenden. ich habe unzählige dieser dateien, wo jeweils 2 zusammen gehören und ich möchte nihht jedes mal im quelltext den namen der zielarbeitsmappe ändern.
gibt es eine geschickte lösung, wie ich das umgehen kann?? Hier schon mal mein Quelltext, der auch so funktioniert. nur leider nicht universal. habe problemzeilen fett markiert! die spalten sind in allen mappen identisch, nur die werte darin unterscheiden sich

Ganz vielen dank schon einmal im voraus!! *Smilie


Sub Daten_Importieren()
'
' GC Daten in HiTech Zhang daten überfüren
'
Dim WB As Workbook
Dim awb As Workbook
Dim dati As Variant

'GC Datei öffnen
Set awb = ActiveWorkbook
dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
If dati = False Then Exit Sub
Set WB = Workbooks.Open(Filename:=dati)

'GC Daten kopieren
ActiveWorkbook.Sheets("GC").Select
Columns("A:H").Select
Selection.Copy

'GC Daten in neue Tabelle von HiTech Zhang einfügen
Windows("EXPORT_VERSUCH_20121121-1.xls").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Tabelle5").Name = "GC"


'GC Datei öffnen
Set awb = ActiveWorkbook
dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
If dati = False Then Exit Sub
Set WB = Workbooks.Open(Filename:=dati)

'GC Auswertung kopieren
ActiveWorkbook.Sheets("Auswertung").Select
Columns("A:BT").Select
Selection.Copy

'GC Auswertung in neue Tabelle von HiTech Zhang einfügen
Windows("EXPORT_VERSUCH_20121121-1.xls").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Tabelle6").Name = "GC-Auswertung"

ActiveWorkbook.Save
End Sub

:)

 

Hallo zela,

Das musst du doch auch gar nicht. In deinem Code heißt es Code:

also hast du doch mit awb.Name den Namen deiner Ausgangsmappe.

Bitte verzichte auf Select und Activate - das ist fast immer überflüssig!
Code:

P.S.: Deine Shift-Taste scheint kaputt zu sein.

 

danke hasso,
das sieht viel besser so aus, allerdings habe ich immer noch das selbe problem. ich verwende dann ja immer noch den namen der ausgangsmappe.

und ich habe viele dateien, und die namen der arbeitsmappen unterscheiden sich nach datum also z.B. 20121202_1; 20121202_2 oder 20121205_1 etc. und dann müsste ich doch immer noch jedesmal den namen ändern oder nicht? dasselbe gilt für awb.name.
kann man nicht die von hand geöffnete arbeitsmappe als etwas definieren, welches man dann anstatt des namens verwendet? so könnte ich das makro für alle meine arbeitsmappen ablaufen lassen

 

Hallo zela,

in deinem ersten Beitrag schriebst du:

ich verstehe das immer noch nicht. Das Makro läuft doch in der Arbeitsmappe, die geöffnet ist. Deren Namen erhältst du mit ActiveWorkbook.Name. Diesen weist du einer Variablen zu und diese Variable kannst du dann später in deinem Code verwenden. Damit musst du den Namen der Mappe nicht in den Quelltext schreiben.

 

Hallo Hasso,

tut mir leid, dass das anscheinend nicht so klappt bei mir. aber wenn ich wie du sagst
Code:

verwende, meckert er, dass ein ungültiger bezeichner verwendet wurde. Ohne Activate geht es aus irgendeinem Grunde auch nicht, aber das ist ja eigentlich auch egal, nur etas unschön. Wenn ich anstatt:
Code:

den Namen verwende:
Code:

funktioniert alles einwandfrei, doch muss ich beim starten jeder neuen arbeitsmappe den namen im makro ändern.
vielleicht bin ich ja auch nur zu blöde und versteh nicht, wie du es meinst. Aber vielen dank für deine hilfe

 

Hallo zela,

den Namen verwende:
Code:

funktioniert alles einwandfrei

Du musst natürlich schon die richtige Syntax verwenden. Statt des festen Namens der Arbeitsmappe ("EXPORT_VERSUCH_20121121-1.xls") musst du einfach den variablen Namen verwenden, also nicht
Code:

sondern Code:

Allerdings solltest du hier natürlich nicht ActiveWorkbook.Name verwenden, sondern die Variable, der du am Anfang des Codes den Namen der Arbeitsmappe, in der das Makro läuft, zugewiesen hast. Durch dein (unnötiges) Verwenden von Select und Activate ist die Ursprungsmappe wohl nicht mehr die aktive Arbeitsmappe.