kann man den Code verkürzen?
denn dieser Code geht bis F32 herunter
:
Sheets("Kundenliste").Select
Range("A1").Select
Selection.Copy
Sheets("Etik").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Kundenliste").Select
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C49").Select
Sheets("Etik").Select
Range("A2:B2").Select
ActiveSheet.Paste
Sheets("Kundenliste").Select
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etik").Select
Range("A3:B3").Select
ActiveSheet.Paste
Sheets("Kundenliste").Select
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etik").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Kundenliste").Select
Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etik").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Kundenliste").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etik").Select
Range("D1").Select
ActiveSheet.Paste
Range("C6:D6").Select
usw.
Danke an Alle
Jürgen