Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Code vereinfachen kopieren /einfügen

VBA: Code vereinfachen kopieren /einfügen
11.05.2016 11:00:30
Jürgen
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Code vereinfachen kopieren /einfügen
11.05.2016 11:27:39
Nepumuk
Hallo,
nach diesem Muster:
Call Worksheets("Kundenliste").Range("A1").Copy(Destination:=Worksheets("Etik").Range("B1"))
Gruß
Nepumuk

Danke :-)
11.05.2016 11:41:52
Jürgen
.

Danke :-)
11.05.2016 11:41:53
Jürgen
.
Anzeige

360 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige