Office: Zwischen Dateien kopieren und einfügen

philipp87 · 22. März 2010

Hallo zusammen,

momentan sieht mein Makro so aus, dass ich von einer Tabelle etwas kopiere und in die Tabelle von der ich das Makro ausführe füge ich die Daten via "Werte einfügen" ein.

Es sind mehrere einzelne Felder die das Makro abklappert!
Was mich jedoch stört, ist dass ich die Datei aus der ich die Daten kopiere für jedes Feld wieder in den Vordergrund hole.

Gibt es auch eine Möglichkeit, die Daten aus der Tabelle zu kopieren ohne diese immer wieder in den Vordergrund zu holen???

Anbei mein Code!
Code:

Sub Import()

'
'

Dim fileToOpen As Variant

fileToOpen = Application _
.GetOpenFilename("Excel-Dateien (*.xl*), *.xl*")

If fileToOpen False Then

Worksheets("Tabelle1").Range("P8") = fileToOpen

With Sheets("Bestellung")
Workbooks.Open Filename:=.Range("P8")
.Range("P10") = Right(.Range("P8"), Len(.Range("P8")) - InStrRev(.Range("P8"), "\"))
End With

'Kopieren Teil 1
Range("H2:I2").Select
Selection.Copy

Windows(ThisWorkbook.Name).Activate

Range("H2:I2").Select

Windows("ShopWithExcel Formblatt_Original - mit Export.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks.Open Filename:= _
Worksheets("Tabelle1").Range("P10").Text

Range("E4:D4").Select
Selection.Copy

Windows(ThisWorkbook.Name).Activate

Range("E4:D4").Select

Windows("ShopWithExcel Formblatt_Original - mit Export.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Kopieren Teil 2
Workbooks.Open Filename:= _
Worksheets("Tabelle1").Range("P10").Text

Range("J4:K4").Select
Selection.Copy

Windows(ThisWorkbook.Name).Activate

Range("J4:K4").Select

Windows("ShopWithExcel Formblatt_Original - mit Export.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Kopieren Teil 3
Workbooks.Open Filename:= _
Worksheets("Tabelle1").Range("P10").Text

Range("D8").Select
Selection.Copy

Windows(ThisWorkbook.Name).Activate

Range("D8").Select

Windows("ShopWithExcel Formblatt_Original - mit Export.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Kopieren Teil 4
Workbooks.Open Filename:= _
Worksheets("Tabelle1").Range("P10").Text

Range("K8").Select
Selection.Copy

Windows(ThisWorkbook.Name).Activate

Range("K8").Select

Windows("ShopWithExcel Formblatt_Original - mit Export.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Kopieren Teil 5
Workbooks.Open Filename:= _
Worksheets("Tabelle1").Range("P10").Text

Range("B13:M34").Select
Selection.Copy

Windows(ThisWorkbook.Name).Activate

Range("B13:M34").Select

Windows("ShopWithExcel Formblatt_Original - mit Export.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B13").Select

Workbooks.Open Filename:= _
Worksheets("Tabelle1").Range("P10").Text

ActiveWindow.Close

MsgBox "Der Import!" & vbCrLf & vbCrLf & _
"war erfolgreich" & vbCrLf & vbCrLf & _
vbTab & vbCrLf, vbInformation + vbOKOnly, "Import"

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für eure Hilfe!

:)

jinx · 24. März 2010

Moin, philipp87,

mindestens 2 Wege: entweder die Felder per Value von einer Mappe/Tabelle in die andere übergeben oder aber Objekte zur Kurzansprache einsetzen und dann Copy&Paste nutzen.

Eventuell reicht es aber auch schon aus, nur zwischen ThisWorkbook (Mappe mit Makro) und ActiveWorkbook (die in Excel momentan aktive Mappe bzw. die mit Fokus) zu unterscheiden.

Reicht das als Ansatz oder benötigst Du weitere Hilfe? Du weißt ja, dann einfach nur Laut geben *grins

P.S.: Du solltest Deine Registrierung vervollständigen (wegen der Anhänge, der Suche, den PN) - Email-Anforderung an www.ms-office-forum.net oder Email-Anforderung an ms-office-forum.net.

philipp87 · 24. März 2010

hmm wüsste nicht wie das funktionieren könnte!?

jinx · 24. März 2010

Moin, philipp87,

Du weißt schon, dass man mit ActiveWorkbook.Name nur den Namen der aktiven Mappe auslesen kann? Braucht man aber nicht - und man braucht die Angaben meiner Meinung nach auch nicht in eine Tabelle zu schreiben (Code ist ungetestet):

Code:

Sub Import()

'
'

Dim fileToOpen As Variant
Dim wbCopyTo As Workbook
Dim wbData As Workbook
Dim wsCopyTo As Worksheet
Dim wsData As Worksheet

fileToOpen = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xl*")

If fileToOpen False Then

Set wbCopyTo = ThisWorkbook
Set wsCopyTo = wbCopyTo.activeshest
Set wbData = Workbooks.Open(Filename:=fileToOpen)
Set wsData = wbData.ActiveSheet

'Kopieren
wsCopyTo.Range("H2:I2").Value = wsData.Range("H2:I2").Value
wsCopyTo.Range("E4:D4").Value = wsData.Range("E4:D4").Value
wsCopyTo.Range("J4:K4").Value = wsData.Range("J4:K4").Value
wsCopyTo.Range("D8").Value = wsData.Range("D8").Value
wsCopyTo.Range("K8").Value = wsData.Range("K8").Value
wsCopyTo.Range("B13:M34").Value = wsData.Range("B13:M34").Value

wbData.Close savechanges:=False

Set wsData = Nothing
Set wbData = Nothing
Set wsCopyTo = Nothing
Set wbCopyTo = Nothing

MsgBox "Der Import!" & vbCrLf & vbCrLf & _
"war erfolgreich" & vbCrLf & vbCrLf & _
vbCrLf, vbInformation + vbOKOnly, "Import"

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

philipp87 · 24. März 2010

Wow, super....

es funktioniert....

es geht wesentlich schneller und ruckelt nicht hin und her!!!

Vielen Dank für deine Hilfe!

Office: Zwischen Dateien kopieren und einfügen

Zwischen Dateien kopieren und einfügen

Zwischen Dateien kopieren und einfügen

Zwischen Dateien kopieren und einfügen

Zwischen Dateien kopieren und einfügen - Similar Threads - Dateien kopieren einfügen

Datei kopieren und umbenennen

Daten aus einer Datei in andere Datei Kopieren u. Einfügen Dynamisch

Suche Datei, öffne Datei, kopiere Bereich, einfügen

Kopieren und einfügen in andere Datei über CommandButton

Markierten Bereich kopieren und in anderer Datei einfügen

Zeile kopieren und Werte in anderer Datei in vorhandener Tabelle einfügen

VBA: Bestimmte Daten von anderer Datei kopieren und Einfügen