|
Hallo Zusammen,
ich habe 2 Dateien (Quelle) & (Ziel)
In der Quelldatei habe ich 5 Tabellenblätter mit definierten Namen. Die gleichen Namen der Tabellenblätter befinden sich auch in der Zieldatei.
Nun möchte ich aus (Quelle) Tabellenblatt 1 C4:C51 in (Ziel) Tabellenblatt 1 D9:56 kopieren.
Das gleiche dann für (Quelle) Tabellenblatt 2 C4:C51 in (Ziel) Tabellenblatt 2 D9:56 kopieren usw. (bis die Zahlen aus den 5 Tabellenblättern übertragen sind)
Jetzt mein Problem :o)
Ich habe das zum Testen für ein Tabellenplatt gemacht (funktioniert) und habe leider keine Ahnung wie ich da eine Schleife einbauen kann. bzw. wo dort die änderungen eingetragen werden müssen.
Bin über jede Hilfe dankbar.
VG Andreas
Zur Info:
Das Makro wird aus der Zieldatei ausgeführt.
Und eine MsgBox soll erscheinen wenn die Daten übertragen sind.
____________________________________________________________________________________
Option Explicit
Dim strQuelle As String
Sub aktualisieren()
With ThisWorkbook.Worksheets("Name Ziel Tabellenblatt")
.Range("D9:D56").ClearContents
End With
strQuelle = Application.GetOpenFilename("Excel,*.xl*")
If strQuelle = "" Then Exit Sub
Workbooks.Open Filename:=strQuelle
strQuelle = Split(strQuelle, "\")(UBound(Split(strQuelle, "\")))
With Workbooks(strQuelle).Worksheets("Name Quelle Tabellenblatt")
.Range("C4:C51").Copy
End With
With ThisWorkbook.Worksheets("Name ZielTabellenblatt")
.Range("D9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
Workbooks(strQuelle).Close (False)
End Sub
___________________________________________________________________________________
|