AW: Excel fuer Makro nicht vollstaendig aus
02.03.2004 11:13:53
Ralf
Hallo Fabian,
mit Code meinst Du wohl das Makro?
OK:
Sub Auto_Open()
' Auto_Open Makro
' Makro am 20.08.2003 von R.NESTEL aufgezeichnet
Range("A7265").Select
ChDir "C:\44"
Workbooks.OpenText Filename:="C:\44\rwo.TXT", Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1))
Columns("C:C").Select
Selection.Columns.AutoFit
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "m/d/yyyy h:mm"
Range("A3:G3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("RWO-Analysen ab 01011998-Makro.xls").Activate
ActiveSheet.Paste
Range("I7265").Select
Windows("rwo.TXT").Activate
Range("H3:L3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("RWO-Analysen ab 01011998-Makro.xls").Activate
ActiveSheet.Paste
Range("O7265").Select
Windows("rwo.TXT").Activate
Range("M3:P3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("RWO-Analysen ab 01011998-Makro.xls").Activate
ActiveSheet.Paste
Range("A7265").Select
ChDir "d:\datas\daten\excel"
Workbooks.Open Filename:="d:\datas\daten\excel\RWO-Analysen-ab-01011998.xls"
Windows("RWO-Analysen ab 01011998-Makro.xls").Activate
Range("A7265:W7265").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("RWO-Analysen-ab-01011998.xls").Activate
ActiveSheet.Paste
Range("A7265").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("A7265").Select
End Sub
Gruss
Ralf