Hallo,
ich habe nun noch ein weiteres Problem. Diesmal sind Makros erlaubt und werden auch benutzt.
Ich habe merhere Dateien mit unterschiedlichen Dateinamen. Es handelt sich dabei um *.txt dateien.
Ich habe nun mal für eine Datei ein Makro aufgenommen wie ich es möchte. Am Ende soll die Datei noch in einem Ordner „export“ im gleichen Verzeichniss, in dem sich die Dateien befinden, gespeichert werden und ein x vor den Dateinamen bekommen.
ich habe die Quelldatei, welche die Infos enthält als input.txt bezeichnet. Nachher variiert dieser name logischerweise.
In der zu erstellenden Datei soll dan folgendes passieren. Es sollen lediglich ein paar werte kopiert werden bzw. damit gerechnet werden und dann soll die neue Datei ebenfalls abgespeichert werden (als Tabstop getrennte txt Datei).
Hier mein bisheriger Quellcode:
ActiveCell.FormulaR1C1 = „=input.txt!R[67]C49/((input.txt!R16C2/1000)^2)“
Range(„A1“).Select
Selection.Copy
Range(„A2:A10“).Select
ActiveSheet.Paste
Range(„B1“).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = „=input.txt!R[67]C54/10“
Range(„B1“).Select
Selection.Copy
Range(„B2:B10“).Select
ActiveSheet.Paste
Range(„B6“).Select
Application.CutCopyMode = False
Range(„C1“).Select
ActiveCell.FormulaR1C1 = „=input.txt!R[67]C50+1.15“
Range(„C1“).Select
Selection.Copy
Range(„C2:C10“).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(„D1“).Select
ActiveCell.FormulaR1C1 = „=input.txt!R[67]C51*1000“
Range(„D1“).Select
Selection.Copy
Range(„D2:smiley:10“).Select
ActiveSheet.Paste
Range(„A1“).Select
Es wäre schön, wenn das skript dies automatisch für alle Dateien am stück machen könnte, dann müsst ich nicht jede Datei einzeln bearbeiten, da es sich um eine menge dieser Dateien handelt.
Vielen Dank.
Gruss