Daten von einer Tabelle übernehmen

[matty1970]

Hallo,

ich hab mal wieder eine doofe Frage.
Ich habe 2 Dateien.
Datei 1 hat 40 Arbeitsblätter die alle relativ gleich sind.
Datei 2 hat 1 Arbeitsblatt und in dieser 1 Tabelle in der in einer Spalte viele Einträge untereinander.
Nun sollen in die 1. Datei immer in die selbe Zelle in jedem Blatt Einträge aus Datei 2 rein und zwar nach dem Schema sie ersten 40 Einträge in Blatt 1, dann die nächsten 40 in Blatt 2 usw. es sind immer 40 Zellen untereinander und die müssen jeweils in die andere Datei. 
Hat da jemand eine Idee wie das zu lösen ist ausser STRG+C und STRG+V ? :D

[matty1970]

hat keiner ne Idee? :(

[Kuwer]

Hallo,

Sub aaa()
 Dim i As Long
 Dim oWbZ As Workbook  'die Mappe mit den 40 Blättern
 Set oWbZ = Workbooks("Mappe2")  'entsprechend ändern
 For i = 41 To 1601 Step 40
   ActiveSheet.Cells(i - 40, 1).Resize(40).Copy oWbZ.Worksheets((i - 1) / 40).Cells(1, 1)
 Next i
End Sub

Gruß Uwe

[Rabe]

Hallo,

Es wäre nett, wenn der Frager Rückmeldung geben würde, ob es funktioniert oder sich beim Helfer für die Hilfe bedankt.

[matty1970]

Hallo,

sorry das ich eine Weile ruhig war, lag im Krankenhaus.

Hab es leider nicht hinbekommen, bin wohl zu viel Noob dafür.
Ich kann es ja noch bischen genauer beschreiben:
Die Datei mit den 40 Blättern lautet daten.xlsm
die Datei mit den einzufügenden Werten heisst werte.xls
Die Einträge in die 40 Blätter müssen immer ab C7 und dann untereinander
Die Quellwerte kommen ab Zelle D2

ich hoffen das ich noch Tipps bekomme, das Copy Pasten ist doch sehr umständlich

lg matty

[Käpt'n Blaubär]

Hallo,

Hab es leider nicht hinbekommen, 

... das ist keine Aussage bei der irgendein Helfer einen Ansatz zum Helfen finden kann.

Vielleicht geht es ja genauer zu erklären, woran es hakt.
Im Moment bist Du hier der Einzige, der weiterhelfen kann.

[Kuwer]

Hallo matty,

Sub aaa()
   Dim i As Long
   Dim oWbZ As Workbook  'die Mappe mit den 40 Blättern
   Set oWbZ = Workbooks("daten.xlsm")  'entsprechend ändern
   For i = 41 To 1601 Step 40
     Workbooks("werte.xls").Sheets(1).Cells(2 + i - 40, 4).Resize(40).Copy oWbZ.Worksheets((i - 1) / 40).Cells(7, 3)
   Next i
End Sub

Gruß Uwe

[Käpt'n Blaubär]

Hallo Uwe,

... so kann es kommen, wenn man sich schon länger mit der Materie beschäftigt hat,
dann ist man natürlich auch nicht auf Zusatzinfos angewiesen.  :16: :22: :19:

[matty1970]

danke euch
das schon meine Finger extrem

[matty1970]

Hallo nochmal von mir,

auch wenn ich das ja nun als erledigt markiert habe und alles so läuft wie es soll eine kurze Frage dazu noch.
Wie muss ich den Code genau verstehen? Also was macht genau was? Das es läuft ist super aber ich wüsste auch immer gern warum was geht
lg Matty