Mein Problem,
ich habe einen code mit dem Makrorekorder aufgezeichnet und war erstaunt wie lang der gesamte code ist.Der Code ist etwas langsam aber er erfüllt die Aufgabe.Gibt es andere Wege um den Code zu kürzen ? Was ich noch nicht behersche ist ihm zu sagen,
dass bei nächsten Makrostart - gehe bitte nicht in die selben Zeile die du vorher kopiert und eingefügt hast sondern immer eine Zeile tiefer.Die Tabelle ist für 52Kalenderwochen augelegt.
Die werte werden 1x wöchentlich eingetragen.Die Zellen der kopierten Werte beinhalten eine Formel,kopiert werden nur die Werte.
Sub DatenUebertragen()
Range("L9").Select
Selection.Copy
Range("AU9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("N9").Select
ActiveWindow.SmallScroll ToRight:=1
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-7
Range("N9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Range("AV9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-7
Range("P9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=10
Range("AW9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-9
Range("R9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=11
Range("AX9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-8
Range("T9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=11
Range("AY9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-9
Range("V9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Range("AZ9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-5
Range("X9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=6
Range("BA9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-5
Range("Z9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Range("BB9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-7
Range("AB9").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=11
Range("BC9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-9
Range("AD9").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll ToRight:=7
Range("BD9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=-24
Range("L10").Select
End Sub
marc danke in voraus :-}