Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro in neu erzeugtem Dokument kopieren

Makro in neu erzeugtem Dokument kopieren
16.12.2002 11:30:00
Daniel
Hallo Zusammen,

also ich führe das unten beigefügte Makro aus. Es liest Text-Dateien aus und formatiert sie nach meinem Bedürfnissen. Jetzt soll diese Text-Datei aber eine Worksheet_SelectionChange hinzufügen. Das heißt er soll die Textdatei lesen, so formatieren wie ich will und dann soll halt in diesem Workbook noch ein Worksheet_SelectionChange hinzugefügt werden. Wie mach ich das? Ich kann doch nicht ein Makro mit einem Makro schreiben, oder etwas doch?

Danke für die Hilfe

Daniel

Makro, wobei ich denke, dass es nicht unbedingt gebraucht wird.
filetoopen = Application.GetOpenFilename("Text-Dateien (*.*), *.*")
If filetoopen <> "" And filetoopen <> Falsch Then
Application.Workbooks.OpenText FileName:=filetoopen, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 2), Array(5, 2), Array(10, 2), Array(15, 2), Array(20, 2), Array(40, 2), _
Array(45, 2), Array(51, 2), Array(59, 2), Array(61, 2), Array(66, 2), Array(71, 2), Array( _
84, 2), Array(92, 2), Array(97, 2), Array(102, 2), Array(107, 2), Array(112, 2), Array(117, _
2), Array(129, 2), Array(141, 2), Array(153, 2), Array(165, 2), Array(177, 2), Array(190, 2 _
), Array(220, 2), Array(260, 2))
ActiveSheet.Select
Rows("1:65536").Select
With Selection.Font
.Name = "Courier"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("A:A").ColumnWidth = 5.57
Columns("B:B").ColumnWidth = 5.57
[...]
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Selection.AutoFilter
usw....

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro in neu erzeugtem Dokument kopieren
16.12.2002 16:31:12
Daniel
Ist die Frage zu schwer, oder ist nicht klar, was ich meine?

Würde mich über ein Feedback freuen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige