Kürzer und einfacher?
21.07.2014 15:15:49
Markus
Ich habe mir untenstehenden Code erarbeitet.
Möchte hier dann mal Nachfragen ob es, bzw. welche, Vereinfachungen es gibt.
Funktion: im Monitoring wird zuerst der Bereich geleert um dann nach und nach mit neuen Informationen aus der Datentabelle gefüllt zu werden.
Worksheets("03_Datentabelle").Select
Worksheets("03_Datentabelle").Range(Range("e2"), Range("F65536").End(xlUp)).Copy
Worksheets("04_Monitoring").Range("a5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("03_Datentabelle").Select
Worksheets("03_Datentabelle").Range(Range("j2"), Range("k65536").End(xlUp)).Copy
Worksheets("04_Monitoring").Range("c5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("03_Datentabelle").Select
Worksheets("03_Datentabelle").Range(Range("m2"), Range("n65536").End(xlUp)).Copy
Worksheets("04_Monitoring").Range("e5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("03_Datentabelle").Select
Worksheets("03_Datentabelle").Range(Range("s2"), Range("s65536").End(xlUp)).Copy
Worksheets("04_Monitoring").Range("g5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("04_Monitoring").Activate
End Sub