code kürzen
26.01.2006 11:42:51
Bernd
ich habe da ein problem.
und zwar:
ich habe diesen code-schnipsel
Range("F41").Select
Selection.Copy
Range("E41").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
range("J41").Select
selection.copy
range("I41").select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
und für weitere 31 zellen
also beginnend bei f41, kopieren, 1 zelle nach links, wert einfügen,
5 zellen nach rechts, kopieren, 1 zelle nach links, wert einfügen,
5 zellen nach rechts, kopieren, 1 zelle nach usw.
das 31 mal
kann man da den code eleganter und kürzer schreiben als mein schnipsel-
ausschnitt?
danke für eure hilfe
gruss bernd