M-Recorder Code veredel
23.01.2005 15:44:24
marc
ich habe aus einer csv.Datei den Text aus der ersten Spalte
kopiert und in eine xls.Datei eingefuegt.Danach Text in Spalten durchgefuehrt.
Alles mit Recorder !
Frage: Ich habe schon einiges,was der Recorder aufgenohmen hat einfach geloescht.Der Code funktioniert,keine Frage.Kann man den unten stehenden Code
anders schreiben bzw. veredeln ?
-
marc :o)
Option Explicit
Sub Makro1()
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Tab:=True, _
Semicolon:=True, 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)), _
TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Rows("1:1").Insert Shift:=xlDown
Range("A1").FormulaR1C1 = "Leitung"
Range("B1").FormulaR1C1 = "Anzahl"
Columns("C:C").Delete Shift:=xlToLeft
Range("C1").FormulaR1C1 = "Bereich"
Range("D1").FormulaR1C1 = "NT4"
Range("E1").FormulaR1C1 = "FOF"
Range("F1").FormulaR1C1 = "FAF"
Columns("H:H").Delete Shift:=xlToLeft
Columns("G:G").ColumnWidth = 49.86
Range("G1").FormulaR1C1 = "Text"
Range("H1").FormulaR1C1 = "Bet"
Range("A1").Select
End Sub