macro
07.12.2004 20:12:56
mayk
mfG mayk
'
'Range("B5:D24").Select
Selection.Copy
ChDir "C:\Dokumente und Einstellungen\nitze-m\Desktop"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\nitze-m\Desktop\Gesamt.xls"
Range("B5").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _
, Transpose:=False
Range("B5").Select
ActiveWindow.WindowState = xlMinimized
Windows("Eingabe.xls").Activate
ActiveWindow.WindowState = xlNormal
Range("B5:D24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B5").Select
End Sub