suche Makro: Kopieren v. Zeilen zwischen 2 Dateien

Hi Leute,
ich versuch nun schon seit Tagen ein vernünftiges Makro für folgende Aktion hinzubekommen.
Ich habe eine Datei mit ca. 300 Einträgen in Spalte F, G, H
Die Datei hat keine Leerzeichen. Bei ca. 300 Einträgen endet die Datei. Es können aber auch evtl. mehr sein.
Ich möchte nun die jeweiligen Einträge in F, G, H in die Spalten F, G, H des anderen Arbeitsblattes der anderen Datei überführen. Hierbei sollen aber nur die Daten in jede 5. Zeile des neuen Arbeitsblattes kopiert werden.
Das Makro sollte darüberhinaus so klug sein, automatisch zu erkennen, dass die Einträge der ersten Datei irgendwann zu Ende sind und danach automatisch stoppen.
Ich hoffe, Ihr könnt mir helfen.
Ich hab wenig Ahnung von Loops oder so...ich hab jetzt eine Lösung in der ich quasi jeden Befehl einzeln aufschreibe, also copy das hier und paste es dort...copy hier paste dort....Ich denke, es geht auch einfacher!
Danke schon mal!
Gruß Till

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub kopieren() Dim lngRow As Long Dim wksQuell As Worksheet Dim wksZiel As Worksheet Set wksQuell = Workbooks("Mappe1").Worksheets("Tabelle1") 'Datenquelle anpassen Set wksZiel = Workbooks("Mappe2").Worksheets("Tabelle1") 'Datenziel anpassen For lngRow = 0 To wksQuell.Range("F65536").End(xlUp).Row - 1 Step 5 wksQuell.Range(Range("F1").Offset(lngRow, 0), Range("F1").Offset(lngRow, 2)).Copy wksZiel.Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll Next 'lngRow End Sub

Sub kopieren() Dim lngRow As Long Dim wksQuell As Worksheet Dim wksZiel As Worksheet Set wksQuell = Workbooks("Mappe1").Worksheets("Tabelle1") 'Datenquelle anpassen Set wksZiel = Workbooks("Mappe2").Worksheets("Tabelle1") 'Datenziel anpassen For lngRow = 0 To wksQuell.Range("F65536").End(xlUp).Row - 1 wksQuell.Range(Range("F1").Offset(lngRow, 0), Range("F1").Offset(lngRow, 2)).Copy wksZiel.Cells((lngRow + 1) * 5 - 4, 6).PasteSpecial Paste:=xlPasteAll Next 'lngRow End Sub

Sub kopieren() Dim lngRow As Long Dim wksQuell As Worksheet Dim wksZiel As Worksheet Set wksQuell = Workbooks("Mappe1").Worksheets("Tabelle1") 'Datenquelle anpassen Set wksZiel = Workbooks("Mappe2").Worksheets("Tabelle1") 'Datenziel anpassen For lngRow = 0 To wksQuell.Range("F65536").End(xlUp).Row - 1 wksQuell.Range(Range("F1").Offset(lngRow + 2, 0), Range("F1").Offset(lngRow, 2)).Copy wksZiel.Cells((lngRow + 1) * 5 + 14, 6).PasteSpecial Paste:=xlPasteAll Next 'lngRow End Sub

Sub kopieren() Dim lngRow As Long Dim wksQuell As Worksheet Dim wksZiel As Worksheet Set wksQuell = Workbooks("Mappe1").Worksheets("Tabelle1") 'Datenquelle anpassen Set wksZiel = Workbooks("Mappe2").Worksheets("Tabelle1") 'Datenziel anpassen For lngRow = 0 To wksQuell.Range("F65536").End(xlUp).Row - 3 wksQuell.Range(Range("F3").Offset(lngRow, 0), Range("F3").Offset(lngRow, 2)).Copy wksZiel.Cells((lngRow + 1) * 5 + 13, 6).PasteSpecial Paste:=xlPasteAll Next 'lngRow End Sub

Hi Ingolf,
anfangs ging das noch ganz gut...
Jetzt bekomme ich aber das Makro leider nicht mehr zum Laufen!
Irgendwie schleicht sich immer die folgende Fehlermeldung ein!
Laufzeitfehler '1004':
Die Methode 'Range' für das Object'_Worksheet' ist fehlgeschlagen.
Ist da etwas nicht richtig definiert???
Gruß Till
Hier noch mal mein angepasster Code:


Sub x_copy()
Dim lngRow As Long
Dim wksQuell As Worksheet
Dim wksZiel As Worksheet
Set wksQuell = Workbooks("Kalkulation.xls").Worksheets("LV") 'Datenquelle anpassen
Set wksZiel = Workbooks("Kalkulation_Deutsch1.xls").Worksheets("Angebot") 'Datenziel anpassen
For lngRow = 0 To wksQuell.Range("F65536").End(xlUp).Row - 3
wksQuell.Range(Range("F3").Offset(lngRow, 0), Range("F3").Offset(lngRow, 3)).Copy
wksZiel.Cells((lngRow + 1) * 5 + 13, 6).PasteSpecial Paste:=xlPasteAll
Next 'lngRow
MsgBox "Job erledigt!"
End Sub

Beliebteste Forumthreads (12 Monate)

suche Makro: Kopieren v. Zeilen zwischen 2 Dateien

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread