Makro vereinfachen

Hallo Experten,
Habe ein Makro mit dem Recorder erstellt.
Kann man es noch vereinfachen?
Ich müsste es immer wieder erweitern.
Makro1 Makro
'
'
Windows("Torsten.xls").Activate
Range("A9:L30").Select
Selection.Copy
Windows("Test1.xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Torsten.xls").Activate
Sheets("S-26-X Okt.").Select
Range("A9:L30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test1.xlsx").Activate
Range("A30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=24
Windows("Torsten.xls").Activate
Sheets("S-26-X Nov.").Select
Range("A9:L30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test1.xlsx").Activate
ActiveWindow.SmallScroll Down:=3
Range("A60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Danke.
Gruß Torsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro vereinfachen

15.05.2016 10:50:42

Hajo_Zi

AW: Makro vereinfachen

15.05.2016 11:26:43

Torsten

ungetestet

15.05.2016 12:33:53

lupo1

AW: Makro vereinfachen

15.05.2016 12:57:16

Daniel

Option Explicit Sub n() Workbooks("Torsten.xls").Worksheets("Tabelle1").Range("A9:L30").Copy Workbooks("Test1.xlsx").Worksheets("Tabelle1!").Range("a1").PasteSpecial Paste:= _ xlPasteValues Workbooks("Torsten.xls").Sheets("S-26-X Okt.").Range("A9:L30").Copy Workbooks("Test1.xlsx").Worksheets("Tabelle1").Range("A30").PasteSpecial Paste:= _ xlPasteValues Workbooks("Torsten.xls").Sheets("S-26-X Nov.").Range("A9:L30").Copy Workbooks("Test1.xlsx").Worksheets("Tabelle1").Range("A60").PasteSpecial Paste:= _ xlPasteValues End Sub

Hi
zum Thema: Makro mit dem Recorder aufzeichnen bitte auch mal das hier lesen:
http://www.online-excel.de/excel/singsel_vba.php?f=78
generell gilt:
in VBA kann man eine Zelle auch direkt ansprechen und verarbeiten, auch wenn sie nicht aktiv ist.
hierzu schreibt man dann Workbook, Worksheet vor die Range.
das selektieren kann dann entfallen:

Windows("Torsten.xls").Activate
Sheets("S-26-X Okt.").Select
Range("A9:L30").Select
Application.CutCopyMode = False
Selection.Copy

wird verkürzt zu

Workbooks("Torsten.xls").Sheets("S-26-X Okt.").Range("A9:L30").Copy

das Application.CutCopyMode = False leert den excelspezifischen Zwischenspeicher und ist meistens nicht notwendig, beim kopieren eines neuen Bereichs wird dieser sowieso überschrieben.
wenn überhaupt führt man das Application.CutCopyMode = False nach dem letzen Einfügen aus.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread