Ich habe Arbeitsmappe zu kopieren, source.xlsm, Arbeitsblatt „test1“ Spalte A6: A20, die ich in einer anderen Arbeitsmappe auf meinem Verzeichnis C kopieren müssen: ... benannter dest .xlsx, Arbeitsblatt "Assets", Spalte "I". Ich muss in der Lage sein, die Daten zu kopieren und in der Lage zu sein, der Spalte hinzuzufügen, ohne die vorherigen kopierten Daten zu überschreiben. Jede Hilfe wäre ein Lebensretter.Excel VBA Spalt vorhandene Arbeitsmappe
Sub Align()
Dim TargetSh As String
TargetSh = "Assets"
For Each WSheet In Application.Worksheets
If WSheet.Name <> TargetSh Then
WSheet.Select
Range("A6:A20").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(TargetSh).Select
lastRow = Range("I65532").End(xlUp).Row
Cells(lastRow + 1, 1).Select
ActiveSheet.Paste
End If
Next WSheet
End Sub
'Jede Hilfe würde auf jeden Fall ein Leben saver' sein :) Können Sie uns zeigen, was haben Sie versucht? –
Wie formatiere ich den Code, um nicht gebündelt zu werden? – lPaclMan
können Sie mit den 'und' die Codes umgeben. Wenn sie immer noch nicht im richtigen Format sind, wird einer von uns es für Sie bearbeiten :) –