Hi Mr. K.,
wow, das ist schon fast genau das, was ich suche!
Eigentlich fehlt mir innerhalb dieses Codes nur noch, dass auch bei dem letzten gefundenen Dateinamen alle Leerzeichen bis zum Endezeichen (*) abgeschnitten werden. Vor dem ersten Dateinamen passiert das schon, vermutlich durch "trim". Leider weiß ich nicht genau, wie ich dies einsetzen muss, um es auch am Ende zu schaffen.
Generell hätte ich dann aber trotzdem noch eine Frage:
Ich habe mehrere txt.-Dateien mit dem gleichen Aufbau. Für diese Textdateien baue ich gerade ein Makro, in dem ich u.a. diesen Code verwenden werde. Ich stelle mir nun die Frage, ob man ein komplettes Verzeichnis mit Textdateien automatisiert, also bspw. als Stapelverarbeitung/Batchprozess mit dem Makro verarbeiten und wieder abspeichern kann oder ob man jede Datei einzeln aufrufen muss. Kann natürlich sein, dass diese Frage Off-Topic ist, da es nicht mit VBA gelöst werden kann.
Danke jedenfalls schon einmal für dein Codebeispiel, das jetzt schon so gut für meinen Anwendungsfall funktioniert.
Grüße
Zymbo
|