Hallo Marco,
versuchs mal so:
Range("A101:A107").SpecialCells(xlCellTypeConstants).Select
Selection.Copy
Range("A110").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-84
Gruß
jofed
|