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....