möchte gerade Tabelle ändrn weiß nicht wie
14.09.2003 19:59:06
sascha w.
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