mackro läuft nicht
14.01.2005 08:46:26
maik
maik
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("E5:I32").Copy
Workbooks.Open Filename:= _
"P:\Servierschnitt\Übersicht Paletten\Dezember`05\datenblatt.xls"
ActiveSheet.[e5].PasteSpecial Paste:=xlAll, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Close
Application.CutCopyMode = False
Range("E5:I32").ClearContents
Application.ScreenUpdating = True
End Sub