Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Daten von einer Tabelle übernehmen
#1
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
Antworten Top
#2
hat keiner ne Idee? :(
Antworten Top
#3
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
Antworten Top
#4
(30.09.2016, 12:40)Kuwer schrieb: 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.
Antworten Top
#5
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
Antworten Top
#6
Hallo,

Zitat: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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#7
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • matty1970
Antworten Top
#8
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.  Huh :16: :22: :19:
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
[-] Folgende(r) 1 Nutzer sagt Danke an Käpt'n Blaubär für diesen Beitrag:
  • matty1970
Antworten Top
#9
danke euch Smile
das schon meine Finger extrem Smile
Antworten Top
#10
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 Smile
lg Matty
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste