Keine Ahnung.
Wer kann mal schauen.
Ich möchte aus der Tabelle1 ausgehend von der ActivenCell die Zellen A:X kopieren und AA:AT und diese
Inhalte nach der Tabelle2 in den gleichen Zellen am Ende der Tabelle übertragen.
Danke Gruß Achim
Sub ttt()
With ActiveCell
Range(Cells(.Row, 1), Cells(.Row, 24)).Copy Sheets(2).Cells(.Row, 1)
Range(Cells(.Row, 27), Cells(.Row, 46)).Copy Sheets(2).Cells(.Row, 27)
End With
End Sub
Sub ttt()
With ActiveCell
Range(Cells(.Row, 1), Cells(.Row, 24)).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp). _
Offset(1)
Range(Cells(.Row, 27), Cells(.Row, 46)).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp). _
Offset(, 26)
End With
End Sub