Wie kann ich den unten stehenden Code vereinfachen?
ActiveSheet.Cells(x, 2).Select
Selection.Copy
Sheets(f).Select
ActiveSheet.Cells(Application.Max(7, Cells(Rows.Count, 2).End(xlUp).Row + 1), 2).Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Cells(x, 5).Select
Selection.Copy
Sheets(f).Select
ActiveSheet.Cells(Application.Max(7, Cells(Rows.Count, 2).End(xlUp).Row), 7).Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Cells(x, 16).Select
Selection.Copy
Sheets(f).Select
ActiveSheet.Cells(Application.Max(7, Cells(Rows.Count, 2).End(xlUp).Row), 62).Select
ActiveSheet.Paste
Meine Idee war:
Sheets(f).Cells(Application.Max(7, Cells(Rows.Count, 2).End(xlUp).Row + 1), 2).Value = Sheets("Tabelle1").Cells(x, 2).Value
Sheets(f).Cells(Application.Max(7, Cells(Rows.Count, 2).End(xlUp).Row), 7).Value = Sheets("Tabelle1").Cells(x, 5).Value
Sheets(f).Cells(Application.Max(7, Cells(Rows.Count, 2).End(xlUp).Row), 62).Value = Sheets("Tabelle1").Cells(x, 16).Value
dies Funktioniert leider nicht...was mach ich falsch?
Vielen Dank im voraus!!
Gruß
Peter |