Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel fuer Makro nicht vollstaendig aus

Excel fuer Makro nicht vollstaendig aus
02.03.2004 10:02:35
Ralf
Hallo,
habe seit der Umstellung v.Office 2000 auf Office 2003 das
Problem, dass ein eingerichtetes Automakro nach Oeffnen
d.Datei nicht mehr richtig abgearbeitet wird.
In diesem Makro ist festgelegt, dass eine TXT-Datei
geoeffnet wird und spaltenmaessig korrekt dargestellt wird.
Funktioniert auch.
Anschliessend werden Daten aus der TXT-Datei i.d.Datei mit
dem Automakro mit copy/paste eingesetzt. Und hier wird es
nur zum Teil richtig umgesetzt. Es wird staendig nur ein
bestimmter Teil uebertragen, obwohl dies nirgends
definiert ist.
Jemand eine Idee?
Gruss
Ralf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel fuer Makro nicht vollstaendig aus
02.03.2004 10:49:56
Fabian
Hi Ralf,
es wäre hilfreich, wenn Du den Code dazu mal posten würdest.
Viele Grüsse
Fabian
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
Anzeige
AW: Excel fuer Makro nicht vollstaendig aus
02.03.2004 11:54:33
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige