Datei beschreiben (überschreiben)

vorhandene Dateien mit dem gewählten Namen werden überschrieben


Dim pfad As String
pfad = ActiveWorkbook.Path & "" & "datensatz.txt" '<- Pfad der geöffneten Exceldatei
Open pfad For Output As #1
zeile = "Text in der Datei"
Print #1, zeile
zeile = "// noch mehr text" & vbCrLF '<- Zeilenumbruch
Print #1, zeile
Close #1