Sub TabelleAlsTextdateiSpeichern()
Dim Bereich As Range
Dim Zeile As Object
Dim Zelle As Object
Dim s As String
Set Bereich = ActiveSheet.UsedRange
Open "c:\test\test.cvs" For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & ";"
Next
Print #1, s
s = ""
Next
Close #1
End Sub