fehler?
18.06.2002 09:40:54
rahel
Workbooks.Open (dName)
Windows("Umfrage1.xls").Activate
Application.Goto Reference:="Tabelle3"
Selection.Copy
Windows("Evaluation.xls").Activate
Sheets("Datenblattansicht").Select
Range("A6").Select <<<<<<<<<<<<<<<<<<<<
Rows("6:6").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Windows("Umfrage1.xls").Activate
ActiveWindow.Close