Office: Dateien über vba öffnen,zwischen Arbeitsmappen springen/aktivieren

Hallo,
ich habe folgendes folgendes Anliegen.
Ich will in meiner datei ein makro ausführen, welche eine andere Datei öffnet und sich von dort aus verschiedene Spalten kopiert. Das funktioniert auch erstmal problemlos.
Ich habe jetzt zwei Probleme.

Zum einen will auch von anderen benannten Dateien als dummy.xlsm aus das Makro benutzen,aber bisher wird durch
Windows("dummy.xlsm").Activate natürlich immer wieder die dummy.xlsm aufgerufen.
Wie kann ich dummy.xlsm durch eine Varibale ersetzen, die zum Beispiel den Namen der Datei enthält von der aus ich das Makro gestartet habe? Oder gibt es ein Befehl womit man zur letzt geöffneten Datei springt?

Zweites Problem ist, dass ich nachdem die unten beschriebenen Spalten kopiert habe ,ich wieder zurück will in die Datei "dat" und nochmal von einer anderen Stelle mir Spalten kopieren will. Da diese Datei "dat" schon geöffnet ist, gibt es sicherlich ein Befehl wie ich diese Mappe wieder aktiviert bekomme oder?

Sub KopiereSpalten()

dat = Application.GetOpenFilename()
Workbooks.Open Filename:=dat, UpdateLinks:=0
Range("R1:W2").Select
Selection.Copy
Windows("dummy.xlsm").Activate
Range("R1").Select
ActiveSheet.Paste
Range("R2:W2").Select
Selection.AutoFill Destination:=Range("R2:W75"), Type:=xlFillDefault
Application.CutCopyMode = False

End Sub

Grüße

:)

 

Hallo!

Wozu wechseln? Man kann auch direkt kopieren, ohne Select und Activate bzw. ohne zwischen den Arbeitsmappen wechseln zu müssen.
Range("R1:W2").Copy Workbooks("dummy.xlsm").Range("R1:W2")

Gruß, René

 

ah okay danke, wusste nicht dass das so einfach geht.
also dieser Befehl kopiert mir jetzt aus meiner geöffneten Datei "dat" das ausgewählte in die dummy.xlsm datei?

ein problem dabei ist noch, dass wie gesagt die datei von der aus ich das makro öffne nicht immer dummy.xlsm heißt. Wie komm ich da an die korrekt bezeichnung ran von der ursprungsdatei?


edit: achso ich sehe gerade gerade, dass der Befehl etwas aus der dummy.xlsm kopiert richtig?
ich versuchs nochmal anders zu erklären.
in meiner aktivten datei dummy.xlsm(die aber auch anders heißen kann) will ich ein makro starten.
dieses makro lässt mich eine datei "dat" auswählen aus der ich mir bestimmte spalten in meine dummy.xlsm datei kopieren will.

bisher hab ich so realisiert, dass ich die datei "dat" öffnen lasse und mir sachen daraus kopiere.
gibt es vielleicht auch eine möglichkeit einfach so auf die Spalten der Zieldatei "dat" zuzugreifen ohne sie zu öffnen/aktivieren sonstiges?

 

Hi,

die Arbeitsmappe mit dem Code lässt sich so ansprechen: ThisWorkbook - du brauchst also nicht den tatsächlichen Namen zu kennen.

 

okay, bin trotzdem noch etwas unsicher wie ich den code gestalten soll. was muss ich schreiben wenn ich aus der "dat" bzw "blanko" datei in mein ThisWorkbook kopieren will? Bitte um schnelle Hilfe *Smilie

Sub KopiereSpalten()

dat = Application.GetOpenFilename()
Workbooks.Open Filename:=dat, UpdateLinks:=0
blanko = ActiveWorkbook.Name
ThisWorkbook.Activate

Range("R1:W2").Copy Workbooks(blanko).Range("R1:W2")
Range("R1").Select
ActiveSheet.Paste
Application.CutCopyMode = False Range("R2:W2").Select
Selection.AutoFill Destination:=Range("R2:W75"), Type:=xlFillDefault
Application.CutCopyMode = False

End Sub

Grüße

 

Ich würde denken so:

Code:

Tabellennamen musst du selbstverständlich anpassen.

 

funktioniert! danke *biggrin.gif*