ich würde gerne was zw. zwei Dateien kopieren, komm aber mit zwei (geöffneten) Dateien und den Tabellenblätter (anzahl x) in der Quelle nicht ganz klar.
Die Zieldatei ist offen und startet den Code.
Die Quelle möchte ich über den Öffnen Dialog öffnen (krieg ich hin).
1. Es sollen aus der Quelle dann im tabellenblatt 2 alle Zeilen kopiert werden, solange bis zum letzten Wert in Spalte A. (Dazwischen sind leere Zeilen!)
2. Das Ziel ist Zieldatei.Tabellenblatt 2.
3. Dann wieder zurück zur Quelle, tabellenblatt 3, weiter wie oben, Ziel Zieldatei.Tabellenblatt 3 etc.
Die einfache Variante zwischen zwei Worksheets habe ich noch hingekriegt, ich freue mich auf ein paar Ergänzungen DANKE.
Sub kopiereZeile()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rngRow As Range
Set wsSource = Worksheets("tabelle1")
Set wsTarget = Worksheets("tabelle2")
For Each rngRow In wsSource.Range("A2", wsSource.Range("A2").SpecialCells(xlCellTypeLastCell)). _
Rows
If rngRow.Cells(1, 20) "" Then
rngRow.Copy wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Offset(1)
End If
Next rngRow
End Sub