Mit dem folgenden Makro kriege ich prinzipiell alle Dateien in das gleiche Format
[/code]Sub Makro_Vorbereitung()
Makro_Vorbereitung Makro
ChDir "H:\Doktorarbeit\Fermentationen_TUHH\Analytik\Standards Juni_10"
Workbooks.OpenText Filename:= _
"H:\Doktorarbeit\Fermentationen_TUHH\Analytik\Standards Juni_10\DDCAL2.06A", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Rows("4:5").Select
Selection.Cut
Rows("35:35").Select
ActiveSheet.Paste
Rows("1:14").Select
Range("A14").Activate
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(7, 1), Array(16, 1), Array(22, 1), _
Array(37, 1), Array(56, 1), Array(69, 1), Array(78, 1)), TrailingMinusNumbers:=True
End Sub
Blöd ist, dass ich hier in den ersten beiden Zeilen die Datei vorgebe
ChDir "H:\Doktorarbeit\Fermentationen_TUHH\Analytik\Standards Juni_10"
Workbooks.OpenText Filename:= _
"H:\Doktorarbeit\Fermentationen_TUHH\Analytik\Standards Juni_10\DDCAL2.06A"[code]
Mir wäre es natürlich lieber, wenn ich das Makro automatiscch auf alle ASCII-Dateien in einem Ordner anwenden könnte. Egal, ich habe mal zwei Beispieldateien hochgeladen.
Hier:
www.file-upload.net/download-2640062/S1_5_RI.xls.html
www.file-upload.net/download-2640063/S1_1_RI.xls.html
Dabei ist in der ersten Datei in Blatt zwei die Art der Ergebnisdarstellung gezeigt, wie ich sie gerne hätte.
Die Dateiinfo für die Probe steht immer in C21, die Namen der Stoffe in Spalte E, die umgerechneten Messwerte (jetzt ohne Kalibration =0) in Spalte G.
Die Dateiinfo wird immer die Form haben: xy_Probennummer. Anhand der Probennummer soll die Zeile vorgegeben werden.
Gruß David
