Office: Datenbereich aus anderer Datei kopieren

Hi,

da der Macro-Recorder nicht über andere Dateien hinaus funkt*frown.gif* , hier mal meine Frage:

Ich möchte aus Excel-Mappe1 mit einer Macroschaltfläche ein Macro in einer Excel-Mappe2 starten, welches mir die Daten in Mappe2 aktuallisiert und anschließend den Bereich A1:B3, der Tabelle3 von Mappe2 nach Mappe1, Tabelle1 kopiert.

Kann mir bitte jemand einen Code schreiben?

Danke im Voraus.
Tuan

:)

 

Guten Morgen Tuan,

ich kann Dir zwar keinen CODE schreiben, aber über den Makrorekorder habe ich folgenden Ansatz aufgezeichnet.
Vielleicht hilft er Dir ja schon weiter.

Der CODE gehört in ein allgemeines Modul der Mappe1.
Code:

 

Hi Mücke,

vielen Dank, nachdem du es mit dem Macrorekorder hinbekommen hast, wollte ich natürlich das auch versuchen. Mein Fehler war, dass ich die andere Excel-Datei über den Windows Explorer gestartet habe, da kam dann halt nichts. Jetzt geht es... Danke für den Gedankenanstoß *grins

Gruß Tuan

 

Hallo Tuan,

hier noch eine weitere Möglichkeit Daten auszulesen ohne die Datei zu öffnen.

Code:

 

Moin, Jürgen,

ich bevorzuge bei Bereichen Ansätze wie Copy a range from closed workbooks (ADO)...

 

Hi jinx,

interessante Alternative! *Smilie

 

Hallo Leute,
hab das hier gefunden nach langem suchen und auch schon ein bisschen rum probiert, hätte jetzt da aber noch ein problem:

Code:

Wie kann ich angeben das er mir die Daten die in B1-K1 Stehen,
das er mir die Daten ab I15 einfügt?

 

Hi djell,

nach meiner Meinung hast Du nur die Möglichkeit mit einem Hilfsblatt, in dieses die Daten importieren, dann die Daten an die richtige Stelle kopieren und das Hilfsblatt wieder löschen.

Hier mal ein Beispielcode, den kannst Du auf Deine Bedürfnisse anpassen:

Code:

 

Moin, djell,

in einer Schleife (For ... Next) zwei Arrays mit Textangaben zu den Zellen durchlaufen...

 

Morgen Backowe,

Das wäre schon nicht schlecht und er macht auch schon irgendwas, nur leider bin ich zu Dumm um die Bereiche an zu passen! :-)

Er sollte einfach nur aus der Datendatei die zeile 1 von A-K mir in das Tabellenblatt "Formular" ab I15 einfügen!

Kannst du mir das zeigen?

Danke!

 

Hi djell,

Code:

 

Ihr seid einfach die Besten!

Ist es jetzt auch noch möglich das ich nach dem Kopieren die daten aus der Datei 100012.xls rauslösche und speicher?

Danke

 

Hallo djell,

ich frage mich gerade, warum wir zuerst die Daten aus einer geschlossenen Datei importieren, dann die Datei öffnen um die Daten aus der Ursprungsdatei zu löschen.

Dann gleich so:

Code:

 

Hallo,

ich habe den von Backowe erstellten Code angepasst, er macht wae, aber wenn er in die Spalte B2 reinkopiert, dann kommt #BEZUG!.

Was habe ich falsch gemacht, was ist falsch angepasst?


Sub Test_Tuan3()
Dim Dateiname As String
Dim sPfad As String
Dim rngZelle As Range

Dateiname = "TeatAT.xlsx"
sPfad = "C:UsersWOUTempAdminDocumentsexcelVBA"

Sheets.Add(after:=Sheets(Sheets.Count)).Name = "z"

For Each rngZelle In Sheets("z").Range("G2:G300, K2:K300")
rngZelle = HoleWert(sPfad, Dateiname, "z", rngZelle.Address)
Next rngZelle
Worksheets("z").Range("G2:G400, K2:K400").Copy _

Sheets("z").Range("G2:G300, K2:K300").Copy _
Destination:=Sheets("Tabelle1").Range("B2")

Application.DisplayAlerts = False
Sheets("z").Delete
Application.DisplayAlerts = True
End Sub

Public Function HoleWert(path$, file$, sheet$, range_ref$)
Dim arg As String
If Right(path, 1) "" Then path = path & ""
If Dir(path & file) "" Then
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(range_ref).Range("A1").Address(, , xlR1C1)
HoleWert = ExecuteExcel4Macro(arg)
End If
End Function


Gruß
Peter

 

Es hat sich erledigt.
Danke Backowe.