Sub schreibe_text_datei()

Dim bereich As Range
Dim zeile As Range
Dim zelle As Range


Verzeichnis = ActiveWorkbook.Path


Set bereich = Range("C4:E6")

Open Verzeichnis & "\inhalt.txt" For Output As #1

For Each zeile In bereich.Rows

For Each zelle In zeile.Cells
s = s & zelle.Value & " "
Next zelle

s = Left(s, Len(s) - 1)
Print #1, s
s = ""

Next zeile

Close #1

End Sub