Makro Daten kopieren in mehrere Blätter

Hallo zusammen,
bräuchte dringend Hilfe mit einem Makro, was mir vermutlich stundenlanges Kopieren und Einfügen ersparen könnte.
Ich habe eine Excel Datei, in der sich 213 Blätter befinden.
Auf dem dritten Blatt "Acquirer Stock Data", sind Daten, die in die nachfolgenden 210 Blätter eingefügt werden sollen. Die Namen der Blätter sind "Sheet210" bis "Sheet1", in absteigender Reihenfolge.
Jetzt bräuchte ich ein Makro, was mir Daten aus dem "Acquirer Stock Data" Blatt, in folgender Weise, in die einzelnen, nachfolgenden Blätter kopiert:
Acquirer Stock Data B2:C137 in Sheet210 B2:C137
Acquirer Stock Data D2:E137 in Sheet209 B2:C137
Acquirer Stock Data F2:G137 in Sheet208 B2:C137 usw. bis
Acquirer Stock Data PD2:PE137 in Sheet1 Sheet210 B2:C137
Vielen Dank schon mal im Voraus für jegliche Hilfe an die Excel-Pros!
Gruß, Pipo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender


Option Explicit
Sub Kopie()
Dim LoI As Long
For LoI = 1 To 210
Worksheets("Acquirer Stock Data").Range("B2:C137").Copy _
Worksheets("Sheet" & LoI).Range("B2")
Next LoI
End Sub

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

Sub copyData() Dim lngIndex As Long, lngCol As Long With Sheets("Acquirer Stock Data") For lngIndex = 210 To 1 Step -1 lngCol = (210 - lngIndex) * 2 Sheets("Sheet" & lngIndex).Range("B2:C137") = .Range(.Cells(2, lngCol + 2), .Cells(137, lngCol + 3)).Value Next End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub Daten_kopieren_in_mehrere_Bl() Dim i As Long 'Kopiervorgänge Dim Spalte As Long 'Erste Kopierspalte Dim BlattNr As Long 'Sheetnummer For i = 1 To 210 Spalte = 2 * i BlattNr = 211 - i Sheets("Acquirer Stock Data").Range(Cells(2, Spalte), Cells(137, Spalte + 1)).Copy _ Sheets("Sheet" & BlattNr).Cells(2, 2) Next i End Sub

Beliebteste Forumthreads (12 Monate)

Makro Daten kopieren in mehrere Blätter

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Makro Daten kopieren in mehrere Blätter

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread