nach enter taste dücken Markro ausführen
14.09.2003 14:51:15
Sascha Waldyer
Sub Kopie1()
Range("B4:F4").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=330
Range("B350").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D350").Select
Application.CutCopyMode = False
Range("B4:F4").Select
Selection.ClearContents
Range("B9").Select
End Sub